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Uh MY SONS 2 


Andrew 


AND 


GAVIN 


[PREFACE 


0. (8 omPONENTS OF THE LANGUAGE 


POSING A PROBLEM <& AN INTRODUCTORY EXAMPLE 
FIRST STORE THE PROGRAM 7HEN TYPE “RUN” 


_A KEYBOARD LIKE A TYPEWRITER?’S 


‘TYPING 6% SOME RULES ABOUT SPACING 

LINE NUMBERS ss THE COMPUTER SORTS THEM OUT 
STATEMENTS , INSTRUCTIONS & REMARKS 
NUMBERS GREAT AND SMALL 

VARIABLES «<# SIMPLE NUMERICAL ONES 
REPLACEMENT OF ONE NUMBER BY ANOTHER 
TEXTS mw AS YOU PRINT THEM 

TEXTUAL VARIABLES <@ SIMPLE ONES 


0 [npur 2 OUTPUT 4 EXPRESSIONS AND FUNCTIONS 


DATA STATEMENTS AND READING FROM THEM 
RESTORE <@ START READING DATA AGAIN 
INPUT < MAKING THE COMPUTER ASK FOR DATA 
EXPRESSIONS < RATHER LIKE ALGEBRA 
FUNCTIONS & SQUARE ROOT, LOG. £7€. 


TRIGONOMETRICAL FUNCTIONS & SINE, COSINE £7. 


RANDOM NUMBERS « THE COMPUTER THROWS DICE 
DEFINING YOUR OWN FUNCTIONS 

PRINT <@ THE MOST VERSATILE INSTRUCTION 
TAB @) @ USEFUL FOR PLOTTING CRUDE GRAPHS 
PRINT USING < ‘MORE VERSATILITY 


3 o (ontror 


GO TO s BREAKING THE USUAL SEQUENCE 

IF f THEN ®@ BREAKING THE SEQUENCE CONDITIONALLY 
STOP <@ STOPPING A RUN WITH EXAMPLE PROGRAM 
ANOTHER EXAMPLE TO ILLUSTRATE CONTROL 

ONY GO TO s THE MULTIWAY SWITCH 

FOR 7 NEXT @ THE CONTROL OF LOOPS 

GO SUB YP RETURN #@ THE CEPT OF A SUBROUTINE 


MOO = A GAME OF BULLS &'COWS ILLUSTRATING GO SI} 


Vbue 


Zi, [gp\rRays 


ARRAYS « INTRODUCING SUBSCRIPTED VARIABLES 
DIM & DECLARING THE DIMENSIONS OF ARRAYS 


SUBSCRIPTS @ MANIPULATING SUBSCRIPTS AS EXPRESSIONS 


RIPPLE SORT < AN EXAMPLE TO ILLUSTRATE SUBSCRIPTS 
CHAINS @ USE OF SUBSCRIPTS IN “LIST PROCESSING” 
BREAKDOWNS OF POPULATIONS & ANOTHER EXAMPLE 


5} >» ZMATRICES 


MATRICES = DON’T RUN AWAY3 THEY ARE ONLY ARRAYS 
REPLACEMENT < A WHOLE MATRIX AT A TIME 
RE=DIMENSIONING = MATRICES EXPAND & SHRINK 
MATRIX ADDITION AND SUBTRACTION 

SCALAR MULTIPLICATION OF MATRICES 
TRANSPOSITION @@* THE ROWS TURN INTO COLUMNS 
ZER 5 CON & IDN <& MATRICES FULL OF 175 & O's 
MATRIX MULTIPLICATION « “INNER PRODUCTS” 
INVERSION = AN INTRODUCTION TO THE CONCEPT 
MATRIX INVERSION «@ THE “INV” INSTRUCTION 
READING WHOLE MATRICES FROM DATA STATEMENTS 
INPUT OF MATRICES < DON’T DO IT FROM A KEYBOARD 
PRINTING WHOLE MATRICES < USEFUL FOR DEVELOPMENT 


6e (SomPLETE EXAMPLE PROGRAMS 


MCDXCII <s* ILLUSTRATING A SYMBOL-STATE TABLE 


BEST WAY HOME «@ ILLUSTRATING A ROUTE-FINDING METHOD 


+f. (4omMANDS AND SIGNING ON 


SIGNING ON 4% A GENERAL IDEA OF THE PROBLEM 
COMMANDS + EACH CAUSES !MMEDIATE ACTION 


& > [PILES OF DATA 


FILES OF DATA THE COMPUTER?’S LONG-TERM MEMORY 


KINDS OF FILE «* A ROUGH ANALYSIS 


©). Gynrax 


Lnoex 


SYNTAX s DEFINITION OF THE WRITTEN FORM OF BAS/C 


PREFACE: 


Ky. MAKE A COMPUTER DO A CALCULATION < HOWEVER SIMPLE os» 
YOU MUST FIRST DESCRIBE EVERY STEP OF THAT CALCULATION IN 

A LANGUAGE THE COMPUTER CAN UNDERSTAND ® THIS DESCRIPTION 
IS CALLED A PROGRAM ao THIS BOOK PRESENTS A POPULAR AND 
WIDELY AVAILABLE LANGUAGE CALLED @8AS8/C AND EXPLAINS HOW 
TO WRITE SIMPLE PROGRAMS IN IT o 


G\cruouct «= MORE ELEGANT AND POWERFUL LANGUAGES ARE 
FAVOURED BY PROFESSIONAL PROGRAMMERS BAS/C 1S ADEQUATE 
FOR MOST NON-PROFESSIONALS AND EXCELLENT FOR BEGINNERS » 


Basic WAS BORN JN AMERICA AT DARTMOUTH COLLEGE , NEW 
HAMPSHIRE , IN (964 AS A SIMPLE COMPUTER LANGUAGE FOR 
BEGINNERS o IT PROVED POPULAR AND HAS BEEN COPIED AND 
EXTENDED BY MANY COMPUTER MAKERS 9 COLLEGES, UNIVERSITIES 
AND “TIME -SHARING” SERVICES 5 NOW, LIKE ENGLISH, BAS/C HAS 
DIALECTS 2 A PROGRAM WRITTEN IN ONE IS UNLIKELY TO WORK 
ON A COMPUTER COMMITTED TO ANOTHER o 


TGhere IS SOON TO BE A_ STANDARD FOR “MINIMAL BASIC” BY 
THE AMERICAN NATIONAL STANDARDS INSTITUTE 7 (A.N.S.1. X3J2), AND 
“SPECIFICATION FOR STANDARD BASIC” BY BULL, FREEMAN & GARLAND 
HAS BEEN PUBLISHED BY THE NATIONAL COMPUTING CENTRE, U.K.” dip, 
THESE HAVE NOT YET HAD TIME TO ENCOURAGE EVERYONE TO FALL INI 
LINE SO THE BAS/C YOU MEET WILL PROBABLY NOT BE STANDARI> . 

I HAVE ACCEPTED THIS AS A FACT OF LIFE 5 ANDg, IN WRITING [HID (troy 
KEPT AT MY SIDE ELEVEN MANUALS <& EACH DEFINING A DIFFEREN 
BAS/C » FOUR OF THESE VERSIONS ARE AVAILABLE ON BIG COMPUTER. 
OPERATED BY INTERNATIONAL “ TIME-SHARING” SERVICES § JHE OnE 
SEVEN ON COMPUTERS RANGING FROM BIG TO ‘“ DESK-TOP??o FROM 
THESE ELEVEN MANUALS J] HAVE TRIED TO DISCOVER AND POIN! OUI 
WHERE BAS/CS COMMONLY DIFFER FROM ONE ANOTHER AND 
RECOMMEND WAYS OF AVOIDING DEPENDENCE ON ANY ONE 
PARTICULAR VERSION. I HAVE USED THE WORD “ PORTABLE’ Tv 
DESCRIBE A BAS/C PROGRAM WRITTEN WITH {INDEPENDENCE IN MIND 
oe AND TREAT THE NEED FOR PORTABILITY AS AN AXIOM, 


TF A.N.S.1. X3J2/76-01 ISSUED FOR PUBLIC COMMENT IN JANUARY IN7e 


MW REFERRED TO IN THE TEXT AS “N.c.c. STANDARD Batic ” 


fou DON’T HAVE TO BE A COMPUTER SCIENTIST TO READ THIS BOOK: IT IS 
FOR STUDENTS MEETING COMPUTERS FOR THE FIRST TIME 3 FOR THOSE 
IN INDUSTRY @ PARTICULARLY ENGINEERS J) WHO NEVER FORMALLY 
STUDIED COMPUTING BUT WOULD LIKE TO WRITE SIMPLE COMPUTER 
PROGRAMS 3 FOR MANAGERS WHO DO NOT WANT TO WRITE PROGRAMS 
BUT WOULD LIKE TO KNOW MORE ABOUT A FIELD IN WHICH THEY OFTEN 
HAVE TO TAKE DECISIONS 3 AND FOR THOSE WHO CAN ALREADY 
WRITE IN BAS/C BUT SEEK A BROADER VIEW OF “PORTABLE ” 
PROGRAMMING AND AN INTRODUCTION TO A FEW PROGRAMMERS? 
TECHNIQUES LIKE “STATE TABLES” AND “LIST PROCESSING’. 


APHE TEXT OF THE BOOK 1S ARRANGED FOR THE MOST PART IN 
DOUBLE-PAGE SPREADS, EACH DEALING WITH A_ SINGLE “STATEMENT” 
OF THE BAS/C LANGUAGE so BECAUSE SO MANY STATEMENTS ARE 
INTER DEPENDENT THIS ARRANGEMENT DEMANDS FORWARD 
REFERENCES NOW AND AGAIN, BUT NOVICES TO COMPUTING MAY 
IGNORE FORWARD REFERENCES FIRST TIME THROUGH THE BOOK 
WITHOUT FEAR OF MISSING SOMETHING ESSENTIAL TO UNDERSTANDING 
THE SUBJECT MATTER o 


[\ RECORD MY DEEP GRATITUDE TO THREE PEOPLE WHO MADE 
THIS BOOK POSSIBLE 3 MY WIFE g FAY, WHO SUFFERED GRASS~— 
WIDOWHOOD BUT NEVER CEASED HER WARM ENCOURAGEMENT $3 
MY PARTNER , BRIAN SHEARING » WHO HAS TAUGHT ME SO MUCH ABOUT 
COMPUTING AND ALLOWED ME TIME OFF WORK TO WRITE THE BOOK $ 
AND CHARLES LANG WHO BELIEVED IN MY IDEAS AND PERSUADED 

ME TO GIVE THEM FORM, 


AX BOOK IS INFORMAL IN LANGUAGE AND UNUSUAL IN PRESENTATION, 
RATHER THAN WRITE A JUSTIFICATION I WOULD ONLY REMARK 

THAT A CAREFUL READER MIGHT DIAGNOSE A SEVERE 
ASTIGMATISM IN MY EYE AND A PERSISTENT SHAKE IN MY HAND, 


GeeIGATE > Donald Alcock 
SURREY 4 U.K. JANUARY i977 


tL 


THIS /S A 


y 2 


“BUG” |S COMPUTER JARGON 
FOR A MISTAKE « THE BOOK 
SHOWS THIS LITTLE BUG 
AGAINST ILLUSTRATIONS OF 
MISTAKES IN PROGRAMS 6 


4 


COMPONENTS OF THE LANGUAGE 


HOW MANY POTS OF PAINT DO 
q | YOU NEED TO PAINT THE ROOF 
: AND WALL OF THIS WATER TANK? 


ameter =6-5' WE COULD GO 
STRAIGHT AT IT 
LIKE THIS: 


roof area, T =717%6-57*+4= 33-2 
Wall aréa,S = 1X6-5x27=55/ 
Lotal Grea, A=T+tS = 584-2 
number of pots, G@=A* 236° 2:48 
rounding up, R=3 


you need 3 pots o paint 


OR WE COULD WRITE A PROGRAM (IN ENGLISH) TO SOLVE THE PROBLEM ,, 


4. REMARK: 


2. THE FOLLOWING NUMBERS ARE THE DATA 6-5,27, 236 

3. READ THE DATA, CALLING THEM D,H&C RESPECTIVELY 
(think of this as putting the data into little boxes 
labelled D,H&C respectively ~ see opposite page) 


A PROGRAM IN ENGLISH 


4. WORK OUT 3-14*D7+4 AND LET THE RESULT BE CALLED T 
(te. put the result in a litt box /abelled T ) 


S. WORK OUT 3.\4x«D«<A AND LET THE RESULT BE CALLED S 


6. ADD Two § AND LET THE RESULT BE CALLED A 
7. WORK OUT A+C AND LET THE RESULT BE CALLED G 


8. ROUND G TO THE NEXT WHOLE NUMBER AND 
LET THE RESULT BE CALLED R 
(4e. aad! 1 toG and take the integral part of rhe resist) 


9, PRINT "You NEED"; R ; "Pots" 
(i.e. print whatever whole number R turns out to be) 


JO. THE END 


THIS HAS THE ADVANTAGE OF BEING GOOD FOR ANY SIZE OF TANK 
AND PAINT POT g% YOU NEED ONLY REPLACE THE DATA ON LINE 2 , 


TRY OBEY/NG THE ENGLISH PROGRAM 
OPPOSITE @% FEEL WHAT IT WOULD BE LIKE 
TO BE A COMPUTER £9 DEF/LE THIS PAGE BY 
WRITING NUMBERS JIN THE LITTLE BOXES BELOW, 


[so] id ae 


nt , L part 
ram 


HERE IS THE SAME PROGRAM AGAIN 


BUT WRITTEN IN Basic ; 


COMPARE IT CAREFULLY WITH THE 
ENGL/SH NERSION OPPOSITE o 


YOU NEED POTS 


REM A PROGRAM IN BASIC 
DATA 6.5, 27, 236 

READ D,H, CC /g 
LET T=3.14*D*2/4 
LET $=3.14*D*H 
LET <A=T+sS 

LET G=A/C 

LET R=INT (G1) 
PRINT “You NEED"; R; "PoTs” 
10 END 


notice 
* meaning multiply 


+ meaning raise to 
Q power 


/ meaning divide 


Oo wWnNwoaun* OO ND & 


AND THIS, WHEN OBEYED, WOULD PRODUCE 3 


YOU NEED 3 POTS 


PREPARE YOUR PROGRAM BY TYPINU 
INSTRUCTIONS AT THE KEYBOARD (ae 
THE COMPUTER SIMPLY S7ORES THE 
PROGRAM AT THIS STAGE 3 


SS S\N. tel oat Le a 
B> If DOESN T OBEY ly 
—_ any _imer RWETIONS ~ 


hee? RK PROGRAM Itt WAT 
DATA 6.5, 27, 2.36 

READ D, H,C 

LET T=3.14«D%*2/4 

LET S*#3.44*D*H 

LET AsT+S 

LET G#A/C 

LET ReINT(G#1) 
PRINT "YoU NEED";R;“Pors” 
10 END 


wr 


uyuMANnNNFwWD 


TYPE RUN 


em 


WHICH SETS THE COMPUTER TO WORK OBEY/NG THE STORED 
INSTRUCTIONS ONE AFTER THE OTHER ® IN NUMBERED SEQUENCE 4» 
WHILST YOU RELAX o 


EVENTUALLY THE COMPUTER WILL 
OBEY THE INSTRUCTION END 9 
THAT MAKES IT STOP 9 


YOU NEED 3 POTS 


BEFORE YOU CAN TAKE THE FIRST STEP AND 
START TYPING THE PROGRAM YOU HAVE To 

| GO THROUGH THE RITUAL OF S/GM/NG ON AND 
TELLING THE COMPUTER YOU WANT TO USE BAS/C, 


DIFFERENT COMPUTERS (( EVEN IDENTICAL COMPUTERS RUN BY 
DIFFERENT ORGANISATIONS ») OFTEN HAVE DIFFERENT WAYS oF 

DOING THESE THINGS g SO IF YOU WANT TO TRY THE PROGRAM Now GET 
SOMEONE WHO “KNOWS THE SYSTEM” TO SIGN ON FOR YOU AND CALL UP BAS/C. 


aN 


EVERY PROGRAM IN 
BAS/C KAS TO BE 
TYPED ON A KEYBOARD 


THIS Som 


ALTHOUGH POSITIONS OF LETTERS & DIGITS ARE THE SAME ON MOST 
KEYBOARDS, KEYS LIKE (iz) GQ IN THE PICTURE ABOVE YARY IN 
OUT 


NAME, POSITION AND FUNCTION FROM ONE INSTALLATION TO ANOTHER, 


Novick ALL LETTERS ARE CAPITAL LETTERS . NOTICE ALSO THERE !S 
A KEY FOR 1 AND A KEY FOR ZERO ( BOTH IN THE TOP ROW), 
NEVER PRESS THE LETTERS I AND O IN THEIR PLACE o 


AS ON AN ORDINARY TYPEWRITER, PRESSING AT THE SAME 
TIME AS ANOTHER KEY GIVES THE 
CHARACTER SHOWN ON THE UPPER HALF OF THAT KEY 3 


THUS TOGETHER WITH for GIVES # WHEREAS (3) ALONE, 3, 


THe “BACK ARROW” + SERVES TO DELETE THE CHARACTER ON ITS 
LEFF FROM THE COMPUTER’S MEMORY $ TWO OF THEM DELETE 
THE PREVIOUS TWO CHARACTERS, AND SO ONg THUS IF YOU 
TYPE PRIMP+<+NT THEN BAS/C RECEIVES THE WORD PRINT o 

REMEMBER THIS BY EXCLAIMING Of SA/F7T/ WHEN YOU HIT THE 
WRONG KEYo) SOME BASICS, HOWEVER, USE AN UNDERSCORE 
CHARACTER FOR THIS PURPOSE 3 PRIMP..WNT. 


MOsT BAS/CS USE A KEY @ PERHAPS “RUBOUT” WHICH, WHEN PRESSED, 
DELETES THE WHOLE OF THE LINE YOU ARE TYPING FROM THE 
COMPUTER®S MEMORY§ ANOTHER ( PERHAPS “BREAK” }) STOPS A 
PROGRAM RUNNING. WHEN TYPING 


f-zeturn Q SOFF LINB® PRESS 
FoR A NEW LINE IN BAS/C PRESS Y \ceTU RY then LINERED 


IF YOU INTEND TO USE BASIC 
PART. A LOT, LEARN TOUCH TYPING, 

y “a TEN FINGERS ARE FASTER AND 

’ LESS FRUSTRATING THAN TWO 4 


THERE IS A LIMIT TO THE LENGTH OF A TYPED LINE femme Mi‘ 
BASICS ALLOW LINES UP TO 72, CHARACTERS LONG g SOME. 
ALLOW LONGER LINES BUT IT IS BEST TO ACCEPT A WYMIT OF J/.) 9 


EFone BASICS ALLOW GREAT FREEDOM WITH THE SPACE BAk 2 


SOME DISREGARD SPACES EXCEPT THOSE BETWEEN QUOTATION 
MARKS o THUS IT WOULD BE ALLOWABLE TO TYPE 6 
8FORD=STOP 


INSTEAD OF3 

8 FOR D= S$ TO Pp 
BUT IT (S OBVIOUSLY SILLY JO OBSCURE THE MEANING OF THE 
PROGRAM IN ORDER TO SAVE A FEW TAPS ON THE SPACE BAR g 


Some BASICS REFUSE TO ALLOW SPACES WITHIN THE CONTROLLING 
WORDS OF THE LANGUAGE q@ THUS THE FOLLOWING WOULD BE WRONGS 


ET A = Bte 


SOME BAS/CS DEMAND AT LEAST ONE SPACE BEFORE EACH 
CONTROLLING WORD, OR AFTER !IT, OR BOTH 8 


80 PRINTYYOU NEED“3R;"PoTS* 


SOME BAS/CS REFUSE TO ACCEPT SPACES WITHIN LINE NUMBERS 
BUT DO NOT OBJECT TO THEM INSIDE OTHER NUMBERS 2 


1000 LET A=1000.0 
SOME BAS/CS DO NOT ALLOW SPACES IN FRONT OF LINE NUMBERS3 


95 LET A=B —e 


OPTIONAL 
MERE 


100 LET C= D*F + 


GENERALLY WHEN ONE SPACE IS ALLOWED ( OR DEMANDED) THEN 
SEVERAL ARE ALLOWED 9 AND GENERALLY A SPACE |S OPTIONAL 
ON EITHER SIDE OF THESE DS (,3 *# +/- = 4 >< ) 

BUT NOT IN 1.5E2 QsEE PAGE 9) NOR BETWEEN > AND=((SEE PAGE 41), 


GA PROGRAM WHICH ACCEPTS ALL THESE RESTRICTIONS SHOULD BE 
ACCEPTABLE TO ANY VERSION OF BAS/C o 


6 


LEAVE GAPS 
IN THEIR 
SEQUENCE 
THUS 3 


LAREVA@ASERS 


10 REM A PROGRAM IN BASIC 
20 DATA 6.5, 27, 286++36 
us. ) JA 30 READ D,H,C THIS IS 236, 


(10s GY 4O LET T23.14*Dt2/4 ZSEE PAGE 5 
> oR 50 LET $= 3.14*D+H 
5S GO LET AFT+S 
7O LET G=A/C 
80 PRINT “YOU NEED"; R; "POTS" 
90 END 


LHere IS A MISTAKE IN THIS PROGRAMe THE LAST LET WAS 


FORGOTTEN g INSERTING IT JS SIMPLE 3 JUST TYPE 3 


AND THE COMPUTER PUTS LINE 75 BETWEEN LINE 7O & LINE BO, 
IT MAKES NO DIFFERENCE {N WHAT ORDER YOU 7YPE THE LINES 
THE COMPUTER SORTS THEM INTO ASCENDING ORDER OF LINE NOMBERo 


Al YOU TYPE SEVERAL LINES WITH THE SAME LINE NUMBER THE 
COMPUTER OBLITERATES EACH PREVIOUS VERSION THUS ACCEPTING THE LINE 
TYPED LAST o IF THE LINE TYPED LAST IS JUST A LINE NUMBER 
WITH NOTHING AFTER IT THEN THE WHOLE LINE VAN/SHES FROM 
THE COMPUTER’S MEMORY sa INCLUDING THE LINE NUMBER g 
THAT IS HOW TO DELETE UNWANTED LINES g TJHUS§ 


120 LET AFBt+ec 
125 LET Ee=rF 


120 LET A= B+G 
125 
120 LET A=B 


RESULTS IN THE COMPUTER REMEMBERING ONLY $3 


120 LET A=5 


Whe FIRST LINE NUMBER N A PROGRAM MUST BE GREATER TRAN Oo 
THERE IS ALWAYS A LIMiT TO THE HIGHEST LINE NUMBER? SOME BAS/Cs 
STOP AT 9999, SO IT !S BEST TO ACCEPT THIS AS THE LIMITo 


THE LAST STATEMENT OF EVERY PROGRAM MUST BES |g \e 
(@e CTHER STATEMENT BUT THE LAST MAY SAY END) = 


A BASIC PROGRAM 
IS A SEQUENCE 

OF NUMBERED UNES 
CALLED STATEMENTS, 


A STATEMENT MAY SIMPLY 
STATE SOMETHING 


30 READ A,B,C 
40 LET G=A*B42+C 


| 
| 
150 PRINT "ANSWER IS"; G 


} 


140 DATA 1,2,4 


OR IT MAY /NSTRUCT THE 
COMPUTER TO DO SOMETHING . 

A COMMON SYNONYM FOR 
STATEMENT (3 INSTRUCTION § 
THE STATEMENTS THAT DO THINGS ARE £YECUTABLE INSTRUCTIONS, 


THE COMPUTER FINDS OUT WHAT IS STATED OR WHAT TO DO By 
LOOKING AT THE FIRST WORD 3 ODATA,END,READ,LET etc. 


OR SOMETIMES AT THE FIRST TWO WORDS? MAT READ, 
MAT PRINT ef. ((WE MEET MAT ON PAGE 76 )o 


BUT THERE IS AN IMPORTANT EXCEPTION 8 


THE WORD MAY BE OM/TTED |N MOST 


VERSIONS OF BAS/C x 


REM STANDS FOR REMARK o . 
REM STATEMENTS CAUSE NO ACTION BY THE 
COMPUTER 3 YOU INCLUDE THEM TO CLARIFY 
YOUR PROGRAM. 


10 REM eax WATER. TANKS *** 
20 REM 

30 REM A PROGRAM TO ILLUSTRATE BASTC 
40 REM — ea KK Re a a 
50 DATA 6-5, aT, 236 

60 REM DIAM, HEIGHT, COVERAGE 


REM tow 
BLANK LJINIS 


REM FOR. 
EMBELLISHMINT) 


REM tok 
CLARITy 


—_ 
THE EXAMPLES IN THIS BOOK DO NOT HAVE MANY “REM” 
STATEMENTS BECAUSE I HAVE ANNOTATED PROGRAMS WITH 
LITTLE ARROWS AND CLOUDS SO AS TO SAVE SPACE. » 


YOU CAN TYPE 

e NUMBERS THREE WAYS 

| ge AS INTEGERS , AS 
REALS OR IN £-FORM, 


INTEGER FORM 


(WHOLE NUMBERS) 160 DATA 0, 2, +4, 1000, -30 


REAL FORM 
(DECIMAL NUMBERS) 


170 DATA +0.70, 4., «6, -1.3, 987.65 


E£-FORM 


(EXPONENT FORM) 
WHERE £ SAYS 
“ TIMES TEN TO THE cee” 


190 DATA 1E3, 19.684 ,1B.6R6, 018688 


je a 
13.6x/O@ 
= 0. 00/36 \= —/3, 6000 


E INTRODUCES AN /N7EGER SAYING HOW MANY PLACES TO SHIFT THE 
DECIMAL POINT. SHIFT TO THE RIGHT IF THE INTEGER JS POSITIVE 5 


OTHERWISE. LEFT» x z= *#K. 
{90 DATA E3, 13.6E1.2 , 13.6 2% 


IN THE £ FORM THERE MUST ALWAYS BE A ts N FRONT OF THE £ 
AND AN /N7TEGER AFTER IT, SOME BAS/CS ALLOW SPACES WITHIN 
AN £ FORM BUT IT IS BEST NOT TO HAVE THEMo 


BY} IN SOME BAS/CS THE BIGGEST NUMBER THAT 
=e CAN BE STORED IS APPROXIMATELY + 1034 
mad 


(B/G MEANS FAR FROM ZERO ON EITHER SIDE 
SMALL MEANS CLOSE TO ZERO ON EITHER SIDE Do 
OTHER BAS/CS CAN HANDLE MUCH BIGGER NUMBERS THAN £1038 3 
IT DEPENDS ON THE COMPUTER?S “ WORD LENGTH” AND WHETHER 
THE “WORDS” ARE USED SINGLY, IN PAIRS, OR IN MULTIPLES o 
BUT MO BAS/C SHOULD REFUSE TO HANDLE A NUMBER AS BIG AS 
t 100,000, 000, 000, 000, 000, 000, 000, 000, 000,000, 000, OCO 


IN SOME BAS/CS THE PRECISION OF STORAGE 
S' laa 7/ AND ARITHMETIC IS BETWEEN 6 AND 7 
SIGNIFICANT DECIMAL DIGITS € 987,654,321 
SIGSFAG WOULD BE STORED AS APPROXIMATELY 987,654,000, 
OTHER BAS/CS OFFER MUCH HIGHER PRECISION , 
15 SIGNIFICANT FIGURES BEING TYPICAL, AGAIN IT DEPENDS ON THE 
COMPUTERS “WORD LENGTH” AND HOW THE “WORDS” ARE USED. 
BUT WO BAS/C SHOULD WORK TO LESS PRECISION THAN 6 TO 7 SG.FIGS. 
(THE VAGUENESS OF “6 TO 71S BECAUSE MOST COMPUTERS USE BINARY 
ARITHMETIC , NOT DECIMALo A MORE PRECISE RENDERING WOULD BE. 
“2A BINARY DIGITS FOR POSITIVE NUMBERS$ 23 FOR NEGATIVE 5 OR VICE VERSA” 
BUT THESE IMPLICATIONS NEED NOT BOTHER THE NOVICE TO BAS/C, ) 


THERE ARE 286 
SIMPLE NUMERICAL 

WAPIARLES 
BASIC 4 


WE SAW SOME OF THESE ON PAGE 3, JIHLY 
ARE THE LITTLE BOXES USED TO HOLD NUMLEI b's, 


THE FULL 286 ARE SHOWN BELOW. IT 1° 
USEFUL TO KEEP A LARGE-SCALE CHART LIKE /HIS 
AND MAKE A PHOTOCOPY FOR EACH NEW PROGKAM, 
AS YOU USE EACH VARIABLE WRITE A NOTR IN (TS 
Box SAYING WHAT YOU USE IT FOR» THIS STOPS 
YOU USING VARIABLES ALREADY USED FOR ‘tMI 
THING ELSE @®A COMMON SOURCE OF TROUBLE w 


a ae tf | 
=s=s=- i 


+ 
pp 


vi 
| 


jai 


wil 


i 
—_ 
ii 

Ww 


i 


wa \n a 


oF 


: 


| 
| 


= 


il 
hii 
wr 


hk 
i 
hi 


i 
i 
i 
bi 
i 
: 


| 
| 


i 
{ 
w * 
= r3 

| | 
wah 
TT 


3 
| 


? 2) v 
4) | : | 
ot as 


al 

rey 
“| 
bhs 


w 


OTH Wh 


| 


rl 
uit 


ki 
H @ e 


| 


- 
on 
i 

a] 


bh 
fi 
w 
i 

@ | @ 
rk 
! 
fj 


q 
: 


a 


0 


YOU MAY USE 
EACH VARIABLE 
MANY TIMES 2 


[PuTTING A NUMBER INTO A VARIABLE SIMPLY REPLACES THE ONE 
ALREADY THERE » COMPARE THE FOLLOWING TWO PROGRAMS 2 
THE FIRST IS THE ONE ON PAGE 3. WITH NEW LINE NUMBERS 2 


10 REM A PROGRAM IN BASIC 

20 DATA 6.5, 27, 236 

30 READ D, H, C 

40 LET T= 3.14 *D*2/4 

50 LET S= 3.14* D*H 

60 LET A=T+#S5 

70 LET G=A/C 

SO LET R=INT(G+#1) 

90 PRINT "You NEED"; R; “Pors" 
100 END 


that 


UMD 


{O REM TO ILLUSTRATE REPLACEMENT 
20 DATA 6.5, 27, 236 


a READ OD, 4, Ot 
a LET T= 3.14% Dt2/4 
Ed) LET T=T+3.14*D«H 
LET Te<T/c 


LET T= INT (T+!) 
PRINT "YOU NEED"; T; “POTS” 
END 


\WHEN A PROGRAM STARTS RUNNING EVERY VARIABLE HAS SOME 
INITIAL VALUE 3 IT DEPENDS ON THE VERSION OF BAS/C WHAT THAT 
VALUE ISa IN SOME BAS/CS IT IS 2 IN SOME IT IS 
WHATEVER THE PREVIOUS PROGRAM LEFT BEHIND $ IN OTHERS IT ISA 


SPECIAL SIGNAL TO SAY VANQYNSHS Aye Gap. So IN THE 


FOLLOWING COMPLETE PROGRAM S$ 
$O PRINT V 
20 END 


YOU MIGHT GET O OR RUBBISH LIKE -123.456 OR A MESSAGE 
FROM THE COMPUTER TO SAY !T CANNOT GO ON BECAUSE VARIABLE 
V iS NOT SET WHEN FIRST USED o 


RELY ON ANY VARIABLE BEING ZERO WHEN THE 
PROGRAM STARTS3 SET IT FIRST 2 


Gum 


BAS/C CAN HANDLE WORDS AS 
WELL AS NUMBERS , 
WE SAW THIS ON PAGE 4 oe 


9 PRINT "YOU NEED"; R3 "Pors" 
10 END 

RUN 

you NEED 3 PoTS . 
THE "YOU NEED" AND THE "POTS" ARE CALLED 7EV7S IN THIS 
BOOK 9 OTHER TERMS IN THE JARGON ARES S7R/NG3 L/TERAL SIR/M 
ALPHAMER/C STRING; ALPHAMERIC LITERAL$ AND THERE MAY BE MOw! 


Texts ARE. WORDS OR SENTENCES OR ARRANGEMENTS OF CHARACTERS 
ENCLOSED IN QUOTATION MARKS, BY THIS DEFINITION YOU CAN?! 
HAVE A TEXT CONTAINING QUOTATION MARKS BECAUSE THE COMPUILE 
WODLD THINK THEY MARKED THE END OF IT$ BUT YOU CAN HAVE 
APOSTROPHES IN TEXTS 3 


| 20 PRINT "IT’S EASY" { 
a 


HOWEVER, SOME BAS/CS ALLOW TEXTS TO BE ENCLOSED BE IWLIN 
APOSTROPHES AS AN OPTION$ SUCH TEXTS MAY HAVE QUOTATION 
MARKS IN THEM BUT NOT APOSTROPHESa OTHER BAS/CS Gl | 
ROUND THE PROBLEM BY JREATING A FAIR OF QUOTAIION MARRS 
INSIDE A TEXT AS SIGNIFYING A SINGLE QUOTATION MARE 8 


30 PRINT "SHE SAID ""OOH!""" | 


ee eee et ee ae 
| SHE SAID “OOH!" 
eS gg a nt aa ge eee een 


BUT !T 1S BEST TO AVOID HAVING QUOTATION MARKS IN TEXIS es 


PRODUCES $ 


FN EMICOLONS IN THE “PRINT” STATEMENT MAKE THE COMPUTI W 

ABUT THE THINGS TO BE PRINTED ONE AGAINST THE OTHER$ COMMA 
WOULD MAKE THE COMPUTER SPREAD THEM OUT ACROSS THE J'Arl . 
ALL THIS IS EXPLAINED FROM PAGE 28 ON, WHERE THE “PRINT " 
STATEMENT IS EXPLAINED IN DETAIL. 


TEXTS IN THE “ PRINT’ STATEMENT MAY BE OF ANY LENGTH THAT will 
FIT THE LINE BEING TYPED. IF YOU WANT SOMETHING PRINTEL) Ricli| 
ACROSS THE OUTPUT PAGE YOU MUST PRINT TWO OR MORE TEXTS & 
ALL BUT THE LAST HAVING A SEMICOLON AFTER THE 

120 PRINT “---------------------->- , 

180 PRINT "--~--------------------- ; 

140 PRINY “---------5-7 720-7 ---- - 


o_O ete ee 
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[hn ADDITION TO THE 28G LITTLE BOXES FOR STORING NUMBERS THERE 
ARE AT LEAST 26 FOR STORING TEXTS THESE ARE CALLED 7ZEXTUAL 
VAR/ABLES 4 WE HAVE COINED THIS TERM TO BALANCE WUMER/CAL VAR/ABLE 
BUT OTHER TERMS IN THE JARGON ARE 3 TEXT VAR/ABLE, S7RING 
VARIABLE & LITERAL VARIABLE. 


[every BAS/C HAS A LIMIT TO THE LENGTH OF TEXT THAT CAN BE 
STORED IN A TEXTUAL VARIABLE 2 SOME ALLOW AS MANY AS 4095 
CHARACTERS 3 OTHERS AS FEW AS 18 a A MAXIMUM FOR * PORTABILITY "0 


(23456 73 9 10 12 18415 iT 8 1234567239 OA 23 &'S 161758 
PO) Op) SOME BAIS 


OP i) NE 286 


TEXTUAL 


VARIABLES 3 
A¢ , AO$, 
fc. to 
" 
AS, pasa ipestiiiiad 284, Z9$. 


LS] 
ZSON,LY, 18, CHARACTERS 


\JHEN THE PROGRAM STARTS, TEXTUAL VARIABLES MAY CONTAIN BLANKS; 
OR TEXTS LEFT OVER FROM A PREVIOUS PROGRAMS$ OR SPECIAL SIGNALS 

TO SAY VARIABLE UNSETo AS WITH NUMERICAL VARIABLES @PAGE 10) 
IT DEPENDS ON THE BAS/C BEING USED. SET VARIABLES BEFORE 
READING FROM THEM IF YOU WANT TO WRITE A “PORTABLE” PROGRAM, 


UPEXTUAL VARIABLES MAY BE SET BY “LET” STATEMENTS 8 
10 LET W$ = “"«** 
20 LET 2% $= “ONLY 18 CHARACTERS STORED" 
AND PRINTED USING “PRINT” STATEMENTS 3 


30 PRINT W$3 Z$3 W$ 
40 END 

RUN 

*xxe ONLY 18 CHARACTERS «+» 
TEXTUAL VARIABLES MAY ALSO BE SET BY “READ” @PAGE 16) AND BY 
“INPUT” (PAGE 18). THEY MAY BE COMPARED By “IF” PAGE 41). 
50 IF I$ YES" THEN 80 


LImiT 70 Fir 
INTO TEXTUAL 
VARIABLE 


60 IF I¢= WS THEN 9000 
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INPUT & OUTPUT y 
EXPRESSIONS AND FUNCTIONS 


THE DATA STATEMENT 
PROVIDES RAW NUMBERS 
DATA READ: 
STATEMENTS TO FEED ONe 


YOU MAY HAVE ANY NUMBER OF DATA STATEMENTS ANYWHERE IN A PROGRAM, 
BEFORE STARTING WORK THE PROGRAM JOINS THEM TOGETHER TO FORM ONE LONG 
“QUEUE” 2 THERE IS NOTHING TO OBEY IN A DATA STATEMENT., BUT Ad 
THE COMPUTER OBEYS A READ STATEMENT IT PICKS UP AS MANY ITEMS AS 
IT NEEDS FROM THE FRONT OF THIS QUEVE LEAVING THE REMAINDER ECR 
SUBSEQUENT READ STATEMENTS o 


SHE FOLLOWING TWO PROGRAMS BOTH PRODUCE THE RESULT SHOWN AI IW 


{0 REM UNBROKEN QUEUE a eonp THE 
i] “ " u 
20 DATA ODDS , 7, —23,-17, EVENS ,-12, 36 GRAM, 


30 READ Q@$, B, C,D, E¢, E, F 
40 PRINT Q$3; Bs) «6Cs)s«CO@{D; E$; E; F 
5 END 


10 REM FRAGMENTED QUEUE 
20 DATA ‘“ODDS‘, 7 

30 READ Q$,B,C,D,E$,E,F 

40 DATA ~-23, -17 

SO «PRINT §Q$;B;C;D; E$;E;F 

60 DATA “EVENS", -12, 36 

70 €ND 

RUN 

ODDS 7 —23 -!7 EVENS-I2 36 


[]T 1S UP To YoU To PUT NUMBERS AND TEXTS WHERE THEY WILL BE 
READ BY VARIABLES OF THE RIGHT KIND. THE FOLLOWING PROGRAM 
WOULD FAIL WHILE 

READING N,(ONE oR 
OTHER PAIR SHOULD 


fe@ THIS EXAMPLE WOULD WORK, BUT SEPARATE QUEVES ARE UNUSUAL, 


Lr THERE ARE MORE “READS” THAN ITEMS THE COMPUTER PRINTS A 
MESSAGE SAYING IT HAS RUN OUT OF DATA AND STOPS WORK, 


DATA 1.5, 2.9, —3.5, 4 
READ A,B 
READ C,D,E 


PRINT A;B;C;D;& 
50 END 
RUN 
* OUT OF DATA AT LINE 30 * 
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THE RESTORE STATEMENT BRINGS 
YOU BACK TO THE FRONT OF THE 
QUEUE OF ITEMS FORMED FROM 
ALL THE DATA STATEMENTS 


VWAHEN THE COMPUTER OBEYS A READ STATEMENT IT READS AS MANY 
ITEMS AS IT NEEDS FROM THE FRONT OF THE QUEUE AND LEAVES THE 
REMAINDER FOR SUBSEQUENT READ STATEMENTS BUT IT DOESN’T 
DESTROY THE QUEVE, (INDEED ON MEETING A RESTORE 
STATEMENT THE COMPUTER JUMPS BACK TO THE VERY FRONT OF 
THE QUEUE AND OBEYS THE NEXT READ STATEMENT FROM THERE 


DATA 1,2,3,4,5,6,7, 8,9 
READ A,B,C 

PRINT A;B3C THESE NEVER 
READ A,B,C eT ee” 
PRINT A3B3C 

RESTORE KES NCE "STANDARD 
READ A,B,C Oi pESET” 
PRINT A3By;C 

END 


ITEMS IN DATA STATEMENTS MAY BE WUMBERS 
(WITH OR WITHOUT + &- SIGNS). OR TEXTS g 
OR BOTH$ BUT NOT EXPRESS/ONS (SEE PAGE 20), 


{0 REM NUMBERS AND TEXTS ALLOWED 
20 DATA 1.5, +16.28,-1347, ‘YES’ , "NO" 
30 REM EXPRESSIONS FORBIDDEN 

40 DATA APE 3 NAR6512/4, 


[Irems MUST BE SEPARATED FROMEACH OTHER BY COMMAS. THERE IS NO 
COMMA AT THE END OF EACH LIST o 


[JF A TEXT (S TOO LONG FOR THE VARIABLE ‘THEN THE EXTRA CHARACTERS ARE 


LOST 8 {0 DATA “FAR TOO LONG FoR THE VARIABLE’ 
20 READ V$ i 


THE. LAST CHARACTER. 
STORED IN VS 


[tn THE ORIGINAL DARTMOUTH BASIC THE ONLY WAY TO GET DATA INTO A 
PROGRAM WAS BY THE DATA STATEMENT 5 MOST BAS/CS TODAY HAVE 
THE MORE POPULAR INPUT STATEMENT AS WELLo THE INPOT 
STATEMENT |S EXPLAINED OVERLEAF o 
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YOU CAN MAKE A BAS/C PROGRAM ASK 
FOR DATAs IT RESTS IN SUSPENSE 
WHILST You TYPE ALINE, 


10 REM ILLUSTRATING INPUT 
20 PRINT “TYPE ME A NUMBER" 
30 INPUT X 

40 PRINT “you JUST TYPED"; x 


50 END 
RUN 


TYPE ME A NUMBER 
? 


THE PROGRAM IS RESTING AT STATEMENT 30 WAITING FOR DATA. 

IT WILL WAIT INDEFINITELY UNTIL YOU TYPE SOME DATA AND PRESS 

THE ¢Retuawy KEY, ( SomME BAS/CS MAY SHUT DOWN AFTER 
he A WHILE IF THEY GET NO RESPONSE 4p 


2 65 
You JUST TYPED 6.5 


We INPUT STATEMENT MAY NEED MORE THAN ONE NUMBER 3 


30 INPUT X,Y, Z > 265, 7.5, 8.5 


IT CAN INPUT TEXTS AS WELL 9 


AND A MIXTURE OF NUMBERS & TEXTS 3 
30 INPUT T#,C,V {> "ROMANS", 45, 45, 4.2— | 


BUT WHATEVER THE INPUT STATEMENT NEEDS, THE MANNER OF 
ASKING @ CALLED THE PROMPT } !S THE SAME 3 IN SOME 
BASICS JUST A RING ON THE BELL3 IN OTHERS A QUESTION MARK 3 
IN OTHERS AN ARROW OR “GREATER THAN” SIGN o 


2} bo 


SO TO HELP THE USER OF A PROGRAM (@ WHO MAY NOT BE ITS 
AUTHOR ]) YOU SHOULD PRECEDE EVERY INPUT STATEMENT WITH 
AN EXPLANATORY PRINT STATEMENT 3 


25 PRINT "TYPE A TEXT &A NUMBER" 
30 INPUT T$%, Cc 


WHEN VARIABLES HAVE SUBSCRIPTS ( SEE PAGEG4) YOU MAY INPUT & Us 
THEIR VALUES FROM LEFT TO RIGHT3 €.9. INPUT I,J,A(1,J) . 
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WHAT HAPPENS IF YOU TYPE SOMETHING WRONG IN 
RESPONSE TO A PROMPT ? 

UNFORTUNATELY THERE ARE DIFFERENT ACTIONS BY 
DIFFERENT BAS/CS o 


TOO MUCH DATA3 YOU ARE ASKED TO RETYPE THE WHOLE LINE. 


{0 INPUT A,B,C >> 2 10, 20, 30, 40, 50 

TOO MUCH DATA; RETYPE LINE 
? 

BUT SOME BASICS JUST /GNORE THE EXTRA NUMBERS 3 OTHERS SAVE 

THEM FOR THE NEXT INPUT STATEMENT 2% OR DO SO ONLY IF THE LINE 

OF DATA ENDS WITH A COMMAg 

NOT ENOUGH DATA @ YOU ARE ASKED TO RETYPE THE WHOLE LINE o 

| 20 INPUT A,B,C,D,E ee 2 10 7 


NOT ENOUGH DATA; RETYPE LINE 
2 
BUT SOME BAS/CS SIMPLY CONTINUE PROMPTING UNTIL THEY RAVE ENOUGH DATA, 


MIS MATCHING 3 YOU ARE ASKED TO RETYPE THE WHOLE LINE 4 


|20 INPUT T$,C,V lr ? "ROMANS", 15, "SIx‘ 
: WRONG KIND OF DATA; RETYPE LINE 

2 

BUT SOME BAS/CS WOULD ACCEPT THE FIRST TWO ITEMS ABOVE AND 

RE-PROMPT ONLY FOR THE THIRD 3 SOME BAS/CS WOULD STOP TRE 

PROGRAM ALTOGETHER o 


TEXTS 3 IF A TEXT HAS NO SPACES IN (T THEN YOU ARE ALLOWED 
TO LEAVE OUT THE QUOTATION MARKSS 


4o INPUT 1Té,C le 12? ROMANS, 15 
BUT SOME BAS/CS DO NOT ALLOW THIS 3 SOME WOULD EVEN STOP 
THE RUNG 


IF A TEXT IS TOO LONG FOR THE VARIABLE THEN YOU ARE ASKED TO 
RETYPE THE WHOLE LINE 2 


50 INPUT T$,C C7 


BUT SOME BAS/CS WOULD SIMPLY 
TRUNCATE THE OVER-LONG TEXT o 
SOME BAS/CS ALLOW TEXTS ENCLOSED WITHIN APOSTROPHES3 SEE PAGE 12, 


COMMAS & SPACES $ THE TYPED LIST SHODLD HAVE COMMAS BETWEEN 
ITEMS AND NO SPACES INSIDE ITEMS. SOME SAS/CS PERMIT COMMAS 
TO BE OMITTED BUT INSIST ON PROPER SPACING (SEE PAGE 6 D9 
OTHERS DISREGARD SPACES @ EXCEPT IN TEXTS D BUT INSIST ON 
THE COMMAS 5 


AK 
2 "THE GOSPEL ACCORDING T0 ST. JOHN ",2 
TEXT TOO LONG; RETYPE LINE 
2 
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YOU CAN WRITE. 
EXPRESGIONS OF 
GREAT COMPLEXITY 
In BAS/C . 
[ERE IS AN EXAMPLE OF AN EXPRESSION 4% THE PAINTED ARLA 01 
THE WATER TANK ON PAGE 2 o 

3.14 * Dt*2/4 + 3.14 *D ¥H 
GIVEN D=6-5, H=27, IF YOU WERE ASKED TO EVALUATE THIS 
EXPRESSION YOU WOULD CERTAINLY NO7 START BY WORKING Our 
At+314= 7.1478 NOR 2/4.=0-5 THEN 0-5+3-14=3.64 oy 
WHY NOT) BECAUSE OF CONVENTIONS WE ALL ACCEPT & 
SZ EXPONENTIATION COMES FIRST 2 DO 65% = 42.05 


SOTHEN MULTIPLICATIONS & DNISIONS § &. DO 3.14%*42:25 = 132.665 
THEN 132.665 +4 33.166'4 
THEN 3.14 K65= 20.41% 
THEN ZOAIOOXT] = 551-0] 


JE FINALLY ADDITIONS & SUBTRACTIONS 3. DO 33.1663+ 55)-0/=584.2% 
AND THAT iS PRECISELY HOW BASIC DOES IT 2 
[JERE IS THE SAME FORMULA EXPRESSED DIFFERENTLY 3 
(3.14 *D* (D/4 +H)) 


YoU MAY “NEST” BRACKETS TO ANY REASONABLE DEPTH. THE 
COMPUTER EVALUATES THE EXPRESSION IN THE INNERMOST PAIR OF 
BRACKETS AND WORKS OUTWARDS ges PRODUCING THE RESULT YOU 
WOULD EXPECT BY THE RULES OF ALGEBRA o 


Pheve IS NO IMPLIED MULTIPLICATION 3 YOU CAN *T Do THIS? 
3.14, D(D/A+H) 


AND YOU MAY NOT PUT “TWO OF THESE THINGS t{/* —+ 
NEXT TO ONE ANOTHER WITHOUT A BRACKET INTERVENING 2 


Saat D* (+D/+4 +H) 
O.K. A BRACKET INTERVENES 


HOW DO YOU EXPRESS 10~ @ Nor AS 104-2, BUT AS 104(-2) 
OR 1/(10#2) 4 a 


(N TYPING EXPRESSIONS YOU MAY SPACE OUT OR BUNCH UP 
AS YOU PLEASE 2 


10 LET A = 3-644 * Dt2 SA 4+3.14*xD*H 


RULES FORBIDDING SPACES IN KEYWORDS & LINE NUMBERS 
ARE GIVEN ON PAGE 6, 
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CLARIFY EXPRESSIONS BY USING BRACKETS o> 
EVEN WHEN NOT STRICTLY NECESSARY, 


YAnat is A/B/C % MOST BAS/CS TREAT IT AS (A/B)/C BUT SOME 
AS A/(B/C)o (TRY 8/4/2 BOTH WAYS AND SEE THE DIFFERENCE.) 
ALWAYS USE BRACKETS TO MAKE SURE THE COMPUTER EVALUATES 
AN AMBIGUOUS EXPRESSION THE WAY YOU INTENDo 

AtBtC IS ANOTHER AMBIGUOUS EXPRESSION3 (AtB)tC OR 
At(BtC) $ AND A™ SHOULD BE EXPRESSED A4+(2*M), 
NOT At2aM oy 


[eJERE ARE TWO PROGRAMS ILLUSTRATING EXPRESSIONS, 


THE DEFLECTION OF A DIVING 
BOARD (S GIVEN BY w}3 


WHERE: 


t=BD2/i2 PRINT "TYPE: W(LB),L(FT), B(IN), D(IN)" 
BENS INPUT W, L, D 

Toe TIMBER x LET E= 2000000 

2x/9° /b/sg.in. W fb LET T= B*D*3/12 


LET V=Wx(L212)t3 /(3*E *L) 
PRINT "BOARD SAGS"; Y; "INCHES" 
END 


| THE MONTHLY 
10 PRINT "TYPE: SUM, YEARS, INTEREST% | K&PAYMENT {a 


20 INPUT Ss, N, P ON A MORTGAGE 
LOAN OF $S 


AT P% 


30 LET R=P/100 

AO LET M=S*Rxe(44+R)4n/(12*((14R)¢N-1)) 

50 PRINT "MONTHLY BURDEN =4" 3 M Is: y 
PRINT "YOU LOSE $°3 Ms(124N)-S SR (/+R) 


i2[u+ry—H] 


SJome Pomnrs To WATCH 8 

IF YOU WRITE “LET A=B/C” AND “C” TURNS OUT TO BE ZERO @oR 
SOMETHING VERY VERY SMALL D THE COMPUTER PRINTS A MESSAGE 
TO SAY “DIVISION BY ZERO” @OR “NUMBER TOO BIG” Do IN SUCH 
CASES SOME BAS/CS THEN SUPPLY A RESULT FOR “A”? THE RESULT 
BEING +10°° @OR BIGGER IF THE COMPUTER CAN STORE IT), THE 
S/GN BEING THAT OF THE NUMERATOR OF THE EXPRESSION CAUSING 
THE TROUBLE a ON THE OTHER HAND SOME BAS/CS STOP THE PROGRAM. 
OTHER BAS/CS SUPPLY THE BIG VALUE AS DESCRIBED ABOVE BUT DON’T 
REPORT THE TROUBLE o 


—A4B IN MOST BAS/CS IS TREATED AS —(A*B) o BUT IT IS BEST TO 
INCLUDE THE BRACKETS TO MAKE SURE o 

A¢B IS TAKEN AS 1.0 IF BeO AND AZO o THE PROGRAM STOPS 
IF A<O ALTHOUGH SOME AAS/CS ALLOW IT WHEN B IS A WHOLE NUMBER, 
A4B GIVES 10% (SEE ABOVE) IF A=-0 AND B<O. 


al 


IN ADDITION TO THE 
OPERATORS */t 4 
BASIC PROVIDES FUNCTIONS 
SUCH AS SQUARE ROOT, 


fou HAVE ALREADY SEEN AN EXAMPLE OF A FUNCTION ON PAGE 33 
NT 
8 LET R= INT(G#1) 


WHERE R ENDS UP AS THE INTEGRAL PART OF THE EXPRESSION 
INSIDE THE BRACKETS 5 THE EXPRESSION G+t1 COULD BE MORE 
COMPLICATED 3 HERE IS THE WATER TANK PROGRAM AGAIN ? 


PRINT "TYPE: DIAMETER, HEIGHT, COVERAGE’ 
20 INPUT . D, H, Cc 

30 LET T=INT(1+(3.14*D*(D/4+H))/C) 

40 PRINT “YOU NEED"“s T; "POTS" 

END 


THE EXPRESSION MAY ITSELF CONTAIN FUNCTIONS 3 EVEN THE SAME ONE 
{O INPUT X 


20 PRINT SQR(SQR (ABS (X))) 
30 END 


WHICH IS A PROGRAM TO PRINT THE FOURTH ROOT OF THE 
POSITIVE VALUE OF A NUMBER, 


L\ FUNCTION IN AN EXPRESSION MAY BE TREATED IN EXACTLY THE 
SAME WAY AS A NUMERICAL VARIABLE = WHEREVER YOU MAY TYPE 
X YOU MAY ALSO TYPE INT(X). YOU SHOULD NOT TYPE ANY 
SPACES IN THE NAME OF THE FUNCTION NOR BETWEEN THE 
NAME AND OPENING BRACKET3 HOWEVER, SOME BAS/CS DO 
NOT OBJECT JO SUCH SPACES, THE EXPRESSION INSIDE THE 
BRACKETS MAY BE SPACED OUT OR BUNCHED UP, 


[ANY BAS/CS OFFER A GREAT VARIETY OF FUNCTIONS BUT ALL 
SHOULD OFFER AT LEAST THE STANDARD ELEVEN DESCRIBED HEREs 
THEY ARE CALLED /W7R/NS/C FUNCTIONS BECAUSE THEY ARE PART 
OF BAS/C ITSELFe YOU MAY INVENT OTHER FUNCTIONS WHICH ARE 
NOT INTRINSIC AS EXPLAINED ON PAGE 260 


Fs UNCTIONS SGN(X), ABS(X), SQ@R(X), INT(X), LOG(X),EXP(X) ARE 
DESCRIBED OPPOSITE3 THE TRIGONOMETRICAL FUNCTIONS SIN(X), 
Cos(X), TAN(X) ARE DESCRIBED ON PAGE 243 PAGE 25 IS 
DEVOTED TO THE FUNCTION RND q 
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=+1 IF X>0 
id ”? 
San ( xq) = 0 IF X#O THE SIGN OF 
=—-fL IF x<0O 


40 PRINT | 40 PRINT SaN(7-2)3 SGN(o); sanC-2) | SGN (0) SGN (--2) [to PRINT sen(7.2); son(o)sson-2) [pos|iro 1 | 
mie IF X30 « ; 

LEBQK) = IF Xx<0 THE ABSOLUTE VALUE OF 
[22 Fa Rasta) mason ABSC2) Yrs | eo oe 


Ss Fe =NX IF X20 "THE SQUARE ROOT OF” 
© =Z£RROR IF X<O (8U7 SOME BASICS PRODUCE Wx ) 
30 PRINT SQR(16); SQR(O); SQR(-16) > 4 0. 
7 ERROR: SQR(NEGATIVE) 


X¢ “THE /NTEGRAL PART OF ” 
( THE HIGHEST INTEGER LESS THAN OR EQUAL TO x ) 


WHERE O 1S “HIGHER” THAN —/ ) 


| 40 PRINT INT(3-4); INTC3.4); INT (3) > 3 -4 3 | 
r 


= la, (X) IF X>O @ ” 
Lon ( X¢ ) ERROR IF X=0 THE NATURAL LOGAR/THM OF 
=ERROR \|F X<O (BU7 SOME BASICS PRODUCE bac (-x) ) 


50 PRINT LOG(1); L0G(40); LoG(2.71828) [50 PRINT LoG(s); Laa(10)s Loc(a.71e28) | gp] o 2.30258 1 | 0 2.30258 | 


© THE et eee Ie TURAL ANTILOGARITHM OF” 


EXP x ) an “THe EXPONENTIAL OF” 
(where E=2.7/828...) 
60 PRINT EXP(0); EXP(2.30258); EXP(1) S { 10 2.71828 


HERE IS A LITTLE PROGRAM To ILLUSTRATE SGN, ABS & INT. 


ABS(L) /S POSITIVE WHATEVER 


COWERTS TO CENTSS 


20 INPUT L 

30 LET S=INT(ABS(L)*100+-5)//100 <q tere ) ROUNDS a cenrs 
40 LET De INT(S) * SGN(L rte rat 70 sce Fe 
50 LET C=INT(CS-ABS(D))*100)~<1 THE ORIGINAL ta. CCC... 
60 PRINT D3"DOLLARS AND'5 0 

7oO END 

RUN 

TYPE A SUM OF MONEY3+0R- 

2 123.456 

DOLLARS AND 46 CENTS 


“D & WE DOLLARS WITH 
THE SIGN RESTORED 


C 4 THE CENTS & US 
ALWAYS POSITIVE 
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ALL ANGLES ARE MEASURED IN RAD/ANS 5] iw radian 
= ( '80)° 
IN THE EXAMPLES BELOW P IS SET EQUAL To 1, co?) 


70 LET P= 3.141593 


-1 0 
{10 PRINT TAN(P/2) <, ERROR: TANGENT TOO BIG 


yA 
"THE ANGLE WHOSE, - 
cP) mame a 
@r ton'(7T)) es 


nn, 


120 PRINT ATN(1E38); ATN(O); ATN(-1) Ty} 157080 0 — -78540 


THE FOLLOWING EXAMPLE PROGRAM USES TRIGONOMETRICA. FUNCTIONS % 


7 PRINT "TYPE LENGTHS (P&Q) & INCL. ANGLE (DEGR.)' 
Q 20 LET K=3.141593/180 
J 30 INPUT P,@,D an 
> DEGREES TO CRADINAN PV 
Guen BO & ANelec =| 40 LET Ce D¥k < RADIANS C rece 
4 


ft THE AREA Is: 50 LET S= 0-5*P*Q*SIN(C) 


£ Pa sinc GO LET A=ATN(Q*SINC)/(P-Q*COS(C)))/k 
ANGLE A IS: 70 LET B=ATN(P*SINC)/(Q—-P#COs(C)))/k 
tan” (Q@sinC/(P-Qcosc))} BO LET G= SQR(P*P + Q#Q—2eP#Q eCON(C)) 


ANGLE B /5: 
4 are (Psincl@ ~Pcasc) 


4 SIDE GUIS: 
M P?4Q*—2PQ cosC 
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90 PRINT “AREA"3S3 “OPPOSITE SIDE"; «1 
400 PRINT ‘BASE ANGLES"; Ay "AND": B 
410 END 


BAS/C CAN “THROW DICE” TO GENERATE 
RANDOM NUMBERS sox PSEUDO RANDOM 
¢ NUMBERS TO BE MORE PRECISE yg 


NOTE: 
THE ORIGINAL 
DARTMOUTH BASIC, 

& SEVERAL EXISTING ONES, 

REQUIRE AN ARGUMENT? 


LET X= RND(A) , 
SoME BASICS 1GNORK 
THis ARGUMENT; OTHERS 
USE IT IN SUBTLE WAYS 
SUCH A$ TO DENOTE 
DIFFERENT “STREAMS” 
OF NUMBERS. 
[In AN EXPRESSION “RND” MAY BE TREATED 1N EXACTLY TRE SAME WAY AS 
A NUMERICAL VARIABLE 3 WHEREVER YOU MAY TYPE X You MAY ALSO 


TYPE RND. STATEMENTS 20 70 50 ABOVE COULD BE COMBINED INTO 


ONE STATEMENT 3 20 PRINT RND;3 RND;3 RND 


YHEN A PROGRAM IS RUNNING, EVERY TIME BAS/C MEETS “RND" IT 
SUPPLIES A RANDOM NUMBER, 72, WHERE O<72<1 (NB. SOMETIMES O, 
NEVER LDo IT IS NOT REALLY RANDOM, IT ISCALLED PSEUDO RANDOM g 
ON MEETING RND THE COMPUTER GENERATES AND PROVIDES THE NEXT IN A 
FIXED CyCLE OF NUMBERS» BAS/CS DIFFER, BUT ONE CYCLE COMMONLY 
USED HAS A MILLION SIX-DIGIT FRACTIONS FROM 0.000000 To 0.999999 o 
IN EVERY CYCLE EACH FRACTION OCCURS EXACTLY ONCE o THE CYCLE 
STARTS . AFRESH IN EVERY RUN 3 IF A PROGRAM USES ALL THE NUMBERS 
IN THE CYCLE THEN THE CYCLE BEGINS AGAINg THE PROGRAM 
ABOVE WOULD GIVE THE SAME RESULT IN EVERY RUN gx BUT A 
DIFFERENT VERSION OF B8AS/C MIGHT PRODUCE THREE COMPLETELY 
DIFFERENT NUMBERS» HOWEVER oa 0 


REM TO ILLUSTRATE RND 
LET X= RND RND /S A 

- FUNCTION WITHOUT 
LET Y= RND AN ARGUMENT 
LET Z= RND 


PRINT X3Y3Z 
END THE SAME 
RESULT 
RUN EVERY RUN 


"240643 -AI7TI9O1 °192204 


THIS STATEMENT MAKES 
BAS/C START THE CYCLE 
AT AN UNPREDICTABLE 
PLACE ON EACH ENCOUNTER, 


THIS PROGRAM 
THROWS A PAIR 
OF DICE$ 


RANDOMIZE 
LET X= INT(1#6*RND) 
LET Y=INT(+6 *RND) 


é Ea PRINT "THROW?"; X3 “AND'3Y 
Q END “RANDOMIZE” 
: gs RUN ENSURES AN UNPREDICTABLE 
THROW: 3 AND 5  «<ct 7#ROW ow Ence RUN 
SOME BAS/CS DON’T HAVE RANDOMIZE$ INSTEAD THEY USE AN ARGUMENT, 


RND(A)o THE WAY “A” IS USED DIFFERS FUNDAMENTALLY FROM 
BAS/C TO BASIC 3 YOU HAVE TO CONSULT THE SPECIFIC MANUAL eo 
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IN BAS/C YOU CAN D£F/NE UP TO 26 OF 
YOUR OWN FUNCTIONS USING THE DEF 
STATEMENT. THESE FUNCTIONS ARE NAMED 
FNA, FNB, FNC fc. 


(SomPARE THESE TWO PROGRAMS, BOTH OF WHICH CALCULATE AND 
PRINT THE VOLUME OF MATERIAL IN A LENGTH OF PIPE. 


PRINT “TYPE: L,D &I" vats <*, 


20 INPUT L,D, ‘ 


30 LET Ai = 3.141592 *D+t2/4 
40 LET AZ = 3.141592 4142/4 
SO LET V=La4( Ai -A2) 
PRINT "VOLUME IS“3 V 
END 


DEF FNC(X)=3.1415892*X42/4 
20 PRINT “TYPE: L,D & I' 

30 INPUT L,D, I 

AO LET V=L*(FNC(D)- FNC(I)) 
50 PRINT "VOLUME IS"“s3V 
END 


ONCE YOU HAVE DEFINED A FUNCTION (CAS IN LINE 10 ABOVE) You MAY 
USE IT EXACTLY AS THOUGH IT WERE AN /N7R/NS/C FUNCTIONo 


\ZHAT HAPPENED JO THE VARIABLE X 2 NOTHINGS IT 1S 
CALLED A DUMMY ARGUMENT» ‘THIS “DEF” STATEMENT SAYS 3 
“COMPUTE THE YALUE OF WHAT LIES IN BRACKETS 3 SQUARE IT3 
MULTIPLY THE SQUARE BY 3.141592 $3 DIVIDE THIS PRODUCT BY 4 == 
AND GIVE THE RESULT TO FNC( ) ”. IT WOULD BE JUST AS 


OGICAL 4 
LOGICAL TO WRITE 40 DEF ENC(P) = 3.141592" t 2/4 


BUT THERE IS NO SUCR CHARACTER AS eo ON THE KEYBOARD §0 
BAS/C INSISTS ON THE NAME OF A VARIABLE To BE USED AS A 
DUMMYo THE VARIABLE X 48 USED ABOVE BUT BAS/C WILL NOT 
CHANGE THE VALUE OF X AT STATEMENT 40. 


CO wrorTuNATELY THERE ARE BAS/CS THAT WOULD CHANGE THE VALUE 
OF X AT STATEMENT AO ABOVE. YOU CAN TEST YOUR YERSION BY 
RUNNING THE FOLLOWING PROGRAM o 


REM TEST FOR DUMMY DUMMIES 
DEF FNA(T) =T+2 
LET T=0 


SHORT FOR 
“DEFINE” 


/F YOUR VERSION 


LET A=FNA(3) 
PRINT T3 "SHOULD STAY ZERO" 
| END 
YOU MAY ALSO DEFINE FUNCTIONS W//HOUT ARGUMENTS gow SEE OPPOSITE « 


DISTINCT FROM 
AR, ENTS? SEE 
ITE 
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HERE ARE SOME EXAMPLES OF FUNCTIONS DEFINED $ 


REM FUNCTIONS WITH NO ARGUMENT 
RANDOM INTEGER (N THE 

20 DEF FNI=INT(2+11*RND) somm—_£ANGE 2 70 12 
f ‘R 
30 DEF FNR=3.141592/180 <me PM7LY DEGRESS By FN 

a ee 
40 REM 
50 REM FUNCTIONS WITH DUMMY ARGUME “MACAULAY” 
OR DIRAC” 

GO DEF FNC(X) = 3.141592*X*X/4 = 


FUNCTION OF X 
FNM(X) = X * SGN(1+SGN(X)) 


YOU MAY ALSO HAVE “ARGUMENTS” THAT ARE NG 
DUMMIES 3 THE FUNCTION USES YALUES OF 
VARIABLES IN YOUR PROGRAMao 


80 REM FUNCTIONS USING PROGRAM VARIABLES 

WYPOTENUSE OF RIGHT ANGLED 
90 DEF FNH = SQR(A*A + BB) TRIANGLE WITH NORMAL SIDES ALB 
100 DEF FNA(X)= 0.5% A* B* SIN(X) 


i, —_ ~<a es a 

AREA OF A TRIANGLE WITH 
LE 

ANGLE “Dummy x” 
uO DEF FNL = P—INT(P/a)#Q 

DiviDED BY a 

[3 e « x” 

120 DEF FNT(X) = INT(X#104D+°5)/10 DEX Re “pomny x” PO 3 


130 DEF FNG = INT(A+(B-1) *RND) <6Q [NG 5 4 RANDOM INTEGER 


(IN THE RANGE A TAB 


BASICS DIFFER 4 IF YOU WANT TO WRITE “PORTABLE” PROGRAMS 
OBSERVE THE FOLLOWING RULES 8 


MAKE SURE THE DEF STATEMENT IS ON A LOWER-NUMBERED 
LINE THAN THE FIRST USAGE OF THE FUNCTIONS 


MAKE SURE YOUR PROGRAM OBEYS THE DEF STATEMENT 
ONCE « ( DON’T JUMP ROUND IT WITH “GOTO"g> SEE P.40e)) 


JE EVEN IF YOUR VERSION ALLOWS IT, DON?T HAVE MORE THAN ONE 
DUMMY ARGUMENT, #9. DON'T HAVE [DEF FNA(A,B,c)=A+ Bec | 


DON?T MAKE FUNCTIONS MORE THAN ONE LINE LONG, SOME 
BASICS ALLOW THIS§ YOU SIGNIFY THE END OF A MULTI- 
LINE DEFINITION WITH THE STATEMENT “FNEND”, 


he Always PUT A DUMMY ARGUMENT EVEN IF NOT USED, eg. 
WRITE LINE 30 ABOVE AS DEF FNR(O)= 3.4141592/180, 
SOME BASICS DON?T ALLOW FUNCTIONS WITHOUT AN ARGUMENT, 


DEFOR SAFETY USE LETTER 0 ( ALSO 01, 02, ede.) EXCLUSIVELY 
AS DUMMY ARGUMENTS 4 NEVER AS VARIABLES3 SOME 
BASICS DO NOT TREAT ARGUMENTS AS TRUE DUMMIES , (SEE 
OPPOSITE FOR THIS TEST. 
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THIS IS THE MOST VERSATILE STATEMENT 
IN BAS/C AND ALSO ONE WHICH DIFFERS 
MUCH IN INTERPRETATION FROM ONE AAS/C 
TO ANOTHER « 


LET E$= "EQUALS" 


20 PRINT "TYPE A NUMBER" 
30 INPUT A Gh _vreineie WZ 


4O PRINT "THE SQUARE OF"; A; E$3 AtA 
NG 


50 END XS 
RUN 

TYPE A NUMBER 

2 


THE SQUARE OF 4 EQUALS 16 


LINE 40 SHOWS EXAMPLES OF FOUR OF THE POSSIBLE THINGS 
THAT CAN BE PUT IN THE LUST FOLLOWING THE WORD PRINT 2 


e@ 


Ye "THE SQUARE OF" 8 A TEXT @ ANY LENGTH THAT WILL 
FIT THE LINE 2 WHICH GETS PRINTED EXACTLY AS TYPED 
BUT WITHOUT THE QUOTATION MARKS g 


Hr A A NUMERICAL VARIABLE WHOSE VALUE GETS 
PRINTED gm NOT ITS NAME, 


He ES gs A TEXTUAL VARIABLE WHOSE 7EX7 GETS PRINTED o 
Ye A*A & AN EXPRESSION WHOSE VALUE GETS PRINTED o 


A PRINT STATEMENT MAY HAVE ANY MIXTURE OF TEXTS, VARIABLES 
AND EXPRESSIONS AS LONG AS THE LIST WILL FIT THE LINE 
THEY ARE SEPARATED FROM ONE ANOTHER BY S£AV/COLONS (AS 
ABOVE) OR BY COMMAS WHICH CAUSE BAS/C TO PRINT ITEMS 
IN ZONES AS DESCRIBED BELOW og 


Nw Te 


EXPRESS/ON 


TEXTUAL 
VARIABLE 


Pre PICTURE BELOW SHOWS A PAGE. WITH 72 POSITIONS ACROSS IT, 
BASIC DIVIDES THE PAGE INTO 4 ZONES , EACH OF 15 CHARACTER 
POSITIONS, AND ONE ZONE OF 1209 ( BAS/CS DIFFER GREATLY HERE 
BOTH IN WIDTH OF PAGE AND IN WIDTH OF ZONE 5» BUT THE 
CONCEPT IS UNIVERSAL. )) THE CHARACTER POSITIONS ARE 
NUMBERED FROM 1, AS DONE BY SOME BAS/CS, BUT MANY 
BASICS NUMBER FROM ZERO (4€ OTO71 INSTEAD OF LTO7ZD)o 


OUTPUT PAGE SHOWING ACH ARACTER, POSITIONS 


<4—ZONE [ —~-}e——-Z0ON. 2 —>}+—Z0 
1S gs EME Bots /2 ZNE SAL 


15 CHARACTERS 15 CANRACTERS '§ COARADERS 
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aan A_SEM/COLON YELLS THE PRINTING HEAD 
{ PRINT Ag NOT TO MOVE BEFORE PRINTING THE 

= NUMBER OR TEXT SIGNIFIED € IN THIS 
CASE THE VALUE OF B))o IF THERE {SN?T ENOUGH ROOM ON THE LINE 


THEN THE PRINTING HEAD RETURNS TO START A NEW LINE o 


A A QOMMA TELLS THE PRINTING HEAD TO 
2 PRINT ASB, MOVE TO THE FIRST POSITION IN THE NEXT 
ol AVAILABLE ZONE BEFORE PRINTING THE 


NUMBER OR TEXT SIGNIFIED ( IN THIS CASE THE VALUE OF Co IF THE 
PRINTING HEAD IS ALREADY SOMEWHERE IN ZONE 5 THEN THE NEXT 
AVAILABLE ZONE {S ZONE 1 ON THE FOLLOWING LINE o 


THEN WHAT ABOUT THE F/RST ITEM IN A 
3 ORINT AGB, List ]ucH AS CD QY NO EXCEPTION 3 
4 BASIC ACTS ON THE COMMA OR SEMI- 


COLON AT THE END OF THE FPREV/OUS LIST, EXACTLY AS THOUGH 


(8) AD T D e 
you H YPED € IN THIS CASE D 2 3 PRINT A}B,C,D 
WHAT IF THERE IS NWO COMMA OR SEMI- 
° eee ae IT Coton AT THE END OF THE PREVIOUS 
; LIST ga OR NO PREVIOUS LIST AT ALL & 


ANSWERS AFTER OBEYING A PRINT STATEMENT HAVING NO COMMA OR 
SEMICOLON AT THE END OF ITS LIST THE PRINTING HEAD RETURNS TO 
START A NEW LINE o YOU MAY ALSO ASSUME THIS HAPPENS BEFORE 
BASIC OBEYS THE VERY FIRST PRINT STATEMENT o 


AL WHAT IF THERE IS AN EMPTY LIST @ 
THEN SBAS/C PRINTS NOTHING ON THE 
LINE, AND BECAUSE THERE \S NO 


COMMA OR SEMICOLON THE PRINTING HEAD RETURNS TO START A 
NEW LINE AS DESCRIBED ABOVE o IN SHORT 8 THIS /S THE WAy 70 
MAKE BAS/C PRINT A BLANK LINE o@ 


SOME BAS/CS ALLOW YOU TO LEAVE OUT 
THE PUNCTUATION ON EITHER SIDE OF A 
’ TEXT ¢ ASSUMING EITHER A COMMA OR 
SEMICOLON DEPENDING ON THE PARTICULAR VERSION, DON’T BO ITo 


: 


8 PRINT Ly sap=" Ie] 


HERE IS AN EXAMPLE SHOWING THE USE OF COMMAS & SEMICOLONS, 
DATA "DAYS", 28, 30, 31 
READ TS, A, B,C NOTE THE COMMA 
PRINT "JAN", "FEB", “MAR', ‘APR’ THE LIST, CAUSING 
PRINT , "(29 IN LEAP YEARS)" sqige—eme 4 ‘45xyp” TO THE 


PRINT C3T$, A3T$,C3T$,B;T$ _ SECOND ZONE « 


END 
RUN 
JAN FEB MAR APR 
(29 IN LEAP YEARS) 
31 DAYS 28 DAYS 31 DAYS 30 DAYS 
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. WHY DOES BAS/C PRINT 
( (CONTIR@ED) Be crearere eynrr 
AND NOT “THE SQUARE OF 4.00000 EQUALS 16.0000” 
(REMEMBERING BAS/C DOES ARITHMETIC TO AT LEAST 6 FIGURES ) 


THE ANSWER IS THAT BAS/C ASSUMES YOU ARE NOT INTERESTED IN 
feTRAILING ZEROS’%, BAS/C TAKES OTHER DECISIONS ABOUT JHE 
WIDTH AND STYLE OF PRINTED NUMBERS AS EXPLAINED BELOW , 


[Te A NUMBER CAN BE ACCURATELY EXPRESSED AS AN INTEGER 
OF SIX DIGITS OR LESS THEN BAS/C PRINTS IT AS AN /N7JEGER o 


10 LET A= 654321 


20 PRINT As —A y 054321, -65432 1 
30 PRINT 0.003 20.03 20.00002 0, 20,20 


vy av “Ay 


AT A NUMBER IS SMALLER (( NEARER TO ZERO) THAN Of BAS/C 
PRINTS IT IN E-FORAZ eq MOST BAS/CS PRINT ONE DIGIT 
BEFORE THE DECIMAL POINT AND FIVE AFTER g BUT SOME 
PRINT ALL SIX DigiIfS AFTER THE POINTa THEN MOST BAS/CS 
PRINT AN E FOLLOWED By A PLUS OR MINUS SIGN FOLLOWED 
BY TWO DIGITS FOR THE EXPONENT 9 


40 PRINT A/1017 3 -A/1049 ~O° H321E-03, -6.54321E-O4,, 


90 PRINT 0.0603; -0.0006 y ©: OO000E+02, ~6- 00000E- 04 . 


BAS/C ALSO PRINTS BIG NUMBERS @ 10© AND BIGGER ) IN £-FORM. 


GO PRINT 100*A $3 = 
70 PRINT ~—1000000000*A SS} ,6-54321E+07,-6-54321E+13, 


BAS/C PRINTS NUMBERS BETWEEN O.1 AND 10° IN DEC/MAL FORM, 
80 PRINT A/103 -A/100 See 55432. 1, 6543-21, 


90 PRINT —-A/1000 ; A/1000000f po 654-321, »°654321, 


his IS WHAT 84S5/C DOES WHEN PRINTING A NUMBER 2 


VY PRINTS A MINUS SIGN IF THE NUMBER [S 
NEGATIVE 9 OTHERWISE A SPACE 8 

Jf THEN PRINTS AN /W7EGER OR AN E-FORM OR 
A DEC/MAL NUMBER DEPENDING ON SIZE AND 
PRECISION AS EXPLAINED ABOYE 3 

A THEN PRINTS ONE TRAILING SPACE 


SOME BAS/CS THEN ADD 7WO OR ONE OR NO FURTHER TRAILING 
SPACES TO MAKE THE TOTAL NUMBER OF PRINTED CHARACTERS A 
MULTIPLE OF 7WREE3 OTHERS ALWAYS PRINT ‘TWO TRAILING SPACES, 
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[rAost BAS/CS PRINT TEXTS AND ZJEXTUAL VAR/ABLES 
WITHOUT ADDING TRAILING SPACES AND WITHOUT STRIPPING 
TRAILING SPACES FROM THE TEXTS THEMSELVES . 


100 DATA "CATCH” , "DALMATIANS" "STEPS" 


110 READ Ce , D$ S$ 
120 DATA 22.00, 1.01E2 39 
130 READ cl, D S 
140 PRINT C$;C , D; D$ S; S$ 
150 PRINT 


160 PRINT C$3-C, S3 54 —-D;D$ 
{70 END ourPurT FROM 
RUN LINE 14.0 ON 


CATCH 22 , 


101, DALMATIANS 


y 101, DALMATIANS, 39, STEPS 


CATCH-22, 39, STEPS 


be— Zone 1 —r}e— ZONE 2 —be—Zane 3 —|--—zowe 4 —>be-zone 5-> 


TYPE AND RUN THE PROGRAM ABOVE ( FROM LINE 10 TO LINE 170) 
TO SEE IF YOUR VERSION OF BAS/C BEHAVES DIFFERENTLY. FROM 
VERSIONS THAT MAKE THE LENGTH OF EVERY NUMBER A MULTIPLE OF 
THREE CHARACTER POSITIONS THE OUTPUT WOULD BE 


CATCH 22.45, q/O1, DALMATIANS 39, STEPS 


v VV AAA 


CATCH-22 yaa 


3S Sl ePS —101) DALMATIANS 


Vv 
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MOST BAS/CS HAVE THE ‘TAB 
OD FUNCTION WHICH MAY BE 
ee RAT 
9) 9 


‘uo VARY THE LAYOUT OF RESULTS UNDER CONTROL OF A PROGRAM 
YOU MAY PUT TAB FUNCTIONS JN THE LIST THAT FOLLOWS THE 
WORD PRINT 


{0 PRINT "GIVE ME A VALUE FOR A" 

20 INPUT A 

30 PRINT TAB(A); "MAN's TAB(2*A)s3 "EATING"; TAB(3*A+5) 3 "FISH" 
40 END 

RUN 


GIVE ME A VALUE FOR A 
23 


MANEATING FISH 
RUN 
GIVE ME A VALUE FOR A 
25 
MAN EATING § FISH 


POS(TION POS/TION 

2x5= 10 3x5 +5=20 
LN TAB FUNCTION ONLY MAKES SENSE AS AN {TEM JN A LIST 
AFTER THE WORD PRINT, YOU MAY PUT A VARIABLE OR 
EXPRESSION INSIDE THE BRACKETS 3 BAS/C WORKS OUT ITS VALUE 
AND MOVES THE PRINTING HEAD TO THE CHARACTER POSITION GIVEN 
BY THE RESULT, THERE ARE SOME TRICKY POINTS TO WATCH WHEN 
USING TAB 3 


We SOME BAS/CS NUMBER CHARACTER POSITIONS FROM 1 (PAGE 28) 
BUT MANY BAS/CS NUMBER THEM FROM ZERO q you 
CAN MAKE PROGRAMS “PORTABLE” BY ALWAYS NUMBERING 
FROM 1 AND NEVER USING POSITIONS GREATER THAN 71 9 


* SOME BAS/CS USE THE WEAREST INTEGER TO THE RESULT 
OF THE EXPRESSION WHEREAS MANY BAS/CS TAKE THE 
INTEGRAL PART 2 \F YOUR FUNCTION COULD YIELD A NON- 
INTEGRAL RESULT USE INT TO ENSURE THE RESULT YOU 


INTENDo = 6H: ¢  TABCINT (P/3++5)); } 


Ye SOME BAS/CS DISREGARD THE PUNCTUATION MARK FOLLOWING 
A TAB( ) 65t9.TAB(6)3 |S TREATED THE SAME WAY AS 
TAB(6), ee BUT OTHERS TREAT A COMMA AFTER TAB 
AS AN ERROR 3 YET OTHERS ACT ON SUCH A COMMA By 
MOVING THE PRINTING HEAD TO THE NEXT ZONE. g SO 
ALWAYS USE SEMICOLONS AFTER TAB()s o 
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* 


IF THE PRINTING HEAD HAS ALREADY PASSED THE 
POSITION EVALUATED BY THE APPROPRIATE TAB 
FUNCTION gw OR IF THE EVALUATED POSITION |S OFF 
THE PAGE sy DIFFERENT BAS/CS TAKE DIFFERENT 
ACTIONS USUALLY RESULTING IN MESSY OUTPUT, 
DON? FT RELY ON SPECIFIC INTERPRETATIONS $ GET 
THE EXPRESSIONS RIGHT o 


TAB( ) MUST STAND ALONE AS AN ITEM IN THE LISTS 
IT MAY NOT BE COMBINED IN AN EXPRESSION HOWEVER 


SIMPLE THE EXPRESSION $ 
400 PRINT 4*TAB(A*6)3 X 


TAB() IS USEFUL FOR PLOTTING CRUDE GRAPHS ON THE OUTPUT 


PAGE. 


PAGE 
LETS 


10 
15 
20 


4.0 


RUN 


THE 
x 
0 
15 


FOR AN EXAMPLE OF THIS WE HAVE TO ANTICIPATE 
48 WHICH EXPLAINS WHY STATEMENT 30 BELOW 
X TAKE SUCCESSIVE VALUES OF 0,15,30 etc. £0 180.4 


PRINT “THE GRAPH OF COSINE(X) FOR X = 0 TO 180"s 
PRINT " IN STEPS OF 15 DEGREES" 
PRINT "X"s TAB(62)3"C0S(x) " 
FOR X=0 TO 180 STEP 15 

LET C =COS(X * 3.141592 / 120) 
LET P = INT(30 * ABS(C)+-5) * SGN(C) 
PRINT X3 TAB(P + 36)3 "a" 

NEXT X AL VERTICAL AXIS (5 OFFSET 


END 36 POS/TIONS TO MIDDLE 
OF PAGE 


CONVERT TO RADIANS 
& GET COSINE INC 


Cos(e) /S SCALED TO 


tia 30 PRINT POSITIONS & 
ROUNDED 70 THE 
NEAREST POSITION 


GRAPH OF COSINE(X) FOR X = O TO 180 IN STEPS OF 15 DEGREES 
cos(X) 
P 
* 
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NOT EVERY BAS/C HAS 
THIS STATEMENT cows 
DETAILED RULES VARY 
AMONG THOSE THAT DOg 


IT IS A DEVICE FOR BUILDING /MAGES OF THE DESIRED OUTPUT, 


LINK NUMBER OF “MAGE” 
40 LET G=1000.00 Bre BE USED 

20 PRINT USING 30 ™,G,G/20 
a 30: HAH HF GUILDERS! COME, TAKE #¥¥! 


Va ZW, 
AO END . “MOULD” “MOULD” I 
RUN FOR G FOR G/20 


$1000 GUILDERS! COME, TAKE 50! 


COLON 3 
FOLLOWED BY 


AN “IMAGE ” 


ONE BASIC USES 


he PRINT USING STATEMENT POINTS TO ANOTHER LINE OF THE 
PROGRAM HOLDING AN /MAGE OF WHAT |S TO BE PRINTED o 
THIS IMAGE MAY CONTAIN MOULDS (& USUALLY CALLED FORMATS Do 
EACH MOULD DETERMINES THE PLACE AND SHAPE OF ITS 
CORRESPONDING ITEM IN THE PRINT LIST WHEN PRINTED , 


ZNeTER THE WORDS “PRINT USING” TYPE THE NUMBER OF THE 
LINE OF PROGRAM WHERE THE IMAGE IS TO BE FOUND. QTHIS MAY 
BE ANYWHERE IN THE PROGRAM AND SEVERAL PRINT STATEMENTS 
MAY USE ITs) THEN TYPE A COMMA WHICH STARTS A_ LIST 
OF VARIABLES OR EXPRESSIONS SEPARATED BY COMMAS a DON’T 
TYPE A COMMA AT THE END OF THE LIST $ THE PRINTING HEAD 
RETURNS AUTOMATICALLY TO START A NEW LINE WHEN A 
PRINT USING STATEMENT HAS BEEN OBEYED. ( CONVERSELY THE 
PRINTING HEAD DOESN?7 START A NEW LINE BEFORE SUCH A 
STATEMENT |S OBEYED 3 IT STAYS WHERE IT WAS LEFT By THE 
PREVIOUS “PRINT” OR “PRINT USING’. ) 


[PoR THE /MAGE LINES TYPE A COLON AFTER THE LINE NUMBER, 
THEN TYPE EXACTLY WHAT YOU WANT THE COMPUTER TO PRINT 
foe BUT REPRESENT EACH D/G/F BY # IN ORDER TO FIX A 
MOULD FOR THE SHAPE OF THE PRINTED NUMBER. IF YOU 
WANT A DECIMAL POINT PRINTED THEN PUT A DECIMAL 
POINT INSIDE THE MOULD 4g 


10:FL AH #w#- A) COME, TAKE FL¥##. ##! 
20 PRINT USING 10, 1000,50 
30 END f Fl. 1S THE 


CURRENCY SIGN 


RUN Sort We FOR GUILDERS 
FL 1000.00! COME, TAKE FL 50.00! 


+ Nic.c. “STANDARD BASIC" SAYS A COLON3 IT WOULD BE MUCH NICER THAN A COMMA 
BUT I HAVE STILL TO FIND A BAS/C THAT ALLOWS A COLON, 
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Nr THE PROGRAM COMPUTES NUMBERS TOO BIG TO FIT THEIR 
MOULDS THEN B8AS/C OBJECTS cay SOME BAS/CS BY FILLING THE 
MOULD WITH ASTERISKS SOME BY CHANGING OR EXTENDING THE 
MOULD g SOME BY STOPPING EXECUTION ALTOGETHER 4 


THIS MOULD CAN COPE WITH POSITIVE NUMBERS 
AS BIG AS 999.99 AND NEGATIVE NUMBERS 
AS BIG AS -—-389.99 


HHH HH <<] 
999-99 
-99+°99 


NO HARM (S DONE BY MAKING THE MOULDS LONGER THAN STRICTLY 
NECESSARY « 


BAS/C FILLS INTEGER 
MOULDS FROM RIGHT 


TO LEFTS veee 


BAS/C F\LLS DECIMAL 
MOULDS FROM THE 
POINT OUTWARDS ¢ 


<—<—S => 
HHH OKA 
BASIC PUTS THE /N7TEGRAL PART OF A NUMBER INTO AN INTEGER 


MOULD, BAS/C “ROUNDS” A NUMBER DESTINED FOR A DECIMAL 
MOULD TO THE NUMBER OF PLACES SIGNIFIED 5 


S: INTEGRAL ## 
10 LET A= 9.999 
15 PRINT USING 5 ,A,A 


20 END 
INTEGRAL PART 999 “ROUNDED” 


INTEGRAL 9 DECIMAL 10.00 


DECIMAL ###.## 


[NF THE PRINT List | 410 :## BARLEY LOAVES & ## SMALL FISHES 
OFFERS MORE ITEMS 20 PRINT USING 10 9952,10, 4,20 

THAN THE IMAGE 30 END 

CAN DIGEST THEN 


BASIC USES THE RUN 
JMAGE AGAIN ap 5 BARLEY LOAVES & 2 SMALL FISHES 
AND AGAIN 4a 10 BARLEY LOAVES & 4 SMALL FISHES 


UNTIL THE LIST IS 20 BARLEY LOAVES & 
CONSUMED o 


THIS EXAMPLE ALSO SHOWS WHAT HAPPENS WHEN THE LIST OFFERS 
700 FEW ITEMS FOR THE IMAGE , PRINTING STOPS AT THE FIRST 
FRUSTRATED MOULD, 


£¥*) THE RULES ARE THE SAME FOR NEARLY ALL 


VERSIONS OF BAS/C THAT OFFER PRINT USING, 


(( AT LEAST ONE, HOWEVER, 100 LET A$="ANS= ##.#" 
DEMANDS THE FORMS SHOWN HERESE>| 110 PRINT USING A$ ,X 


THESE ARE OPTIONAL FACILITIES f-~ vanes x 
IN SEVERAL BASICS a 100 PRINT USING ANS=##.# ,X 


THE FACILITIES & RULES OVERLEAF ARE MORE YARIABLE FROM ONE 
BAS/C JO ANOTHER THAN THOSE EXPLAINED SO FAR 2 FOR THE 
SAKE OF “PORTABILITY” IT WOULD BE BEST TO AYOID THOSE OVERLEAF, 
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See eee 


yOU CAN MAKE MOULDS FOR PRINTING NUMBERS IN £ -PORA 

BY ADDING UP-ARROWS TO A DECIMAL MOULD e FOR ANY 

ONE. VERSION OF BAS/C THE NUMBER OF ARROWS IS 
FIXED 3 IN SOME FOUR} IN OTHERS FIVE (@ AND SOME BAS/CS 
USE AN EXCLAMATION MARK IN PLACE OF AN ARROW Dy 


—34.5600 >> H. HH ttt > — -346E+N2, 


THERE MUST BE AT LEAST ONE # BEFORE THE DECIMAL POINT 
TO RESERVE A POSITION FOR THE SIGN 


10: s**#A TITLE*** 
20: 

40 PRINT USING 10 
AO PRINT USING 20 
50 END 


RUN 
aveR TITLE *** 


IN SOME BAS/CS You 
MAY HAVE. AN EMPTY 
PRINT LIST ga EVEN 
AN EMPTY IMAGE o 


(( THESE THINGS ARE 

MORE EASILY DONE BY 
PRINT 

WITHOUT THE USINGo}) 


BLANK 4L/NE 


BY USING 
ZO 


SOME. BAS/CS ALLOW CURRENCY SIGNS IN THE MOULD, 
1.234 $1.23 
23.456 Lo tase HH SS $23.46 
345.678 $345-68 
THE CURRENCY SIGN q POSSIBLY of IN THE U.K. ») “FLOATS” TO 


THE LEFT, SOME BAS/CS PERFORM THE SAME TRICK WITH 
ASTERISKS @ 


SOME BAS/CS ALtow + A PLUS OR MINUS SIGN IN FRONT 
OF THE MOULD 2.9. +##.# AND —H#-## 
Comet «6st SAYS) “PRINT A PLUS SIGN IN FRONT OF THE 


NUMBER IF IT iS POSITIVE § A MINUS 
SIGN IF NEGATIVE” 


— SAYS “PRINT A SAACE IN FRONT OF THE 
NUMBER IF IT IS POSITIVE 8 A MINUS 
SIGN IF NEGATIVE” 


IT IS NOT ALWAYS CLEAR FROM THE MANUALS WHETHER THIS 
FACILITY CAN BE USED IN CONJUNCTION WITH THE CURRENCY SIGNo 


Fee. "STANDARD BASIC” REQUIRES A SIGN IN FRONT OF THE MOULD- 
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IN MOST BAS/CS OFFERING PRINT USING 

Ir (S POSSIBLE TO MAKE MOULDS FOR 7ZJEXTUAL 
VARIABLES. THESE ARE EXTREMELY USEFUL 
BUT UNFORTUNATELY THEIR DETAILS DIFFER 9 


REM COMMON START 
LET T$= "TO" 


LET  B¢$= "BE" 
PRINT USING 50 ,T$,B4,T$,B$ 


SEE FOUR 
DIFFERENT 
LINES 50 
BELOW 


REM COMMON ENDING 
END 


DIFFERENT LINES 50 FOR DIFFERENT VERSIONS OF @BAS/C ARE 
ILLUSTRATED BELOW, THE RESULT PRODUCED By USING EACH 
IMAGE IS SHOWN IMMEDIATELY BELOW THAT IMAGE o 


50: ## #H# OR NOT ¥-# # 
TO 4 BE OR NOT TO 


FALLED FROM 
LEFT 70 RIGHT 


50:” "RRR OR NOT ‘CCC 


TOR ey x NOT 
Ve; SAY 
JUSTIFY RIGHT 


50:\\ OR NOT 
TO BE OR NOT 


TRUNCATION T0 
THE RIGHT IF TEXT 
/§ TOO LONG FOR MOULD 


—z_( APOSTROPHE 
DENOTES TEXTUAL 
MOULD 
*y SAY 
CENTRALIZE 


DEC/MAL POINT 
(AND#) AcT THE 
SAME WAY AS# 


| FOR SINGLE 
CHARACTER, 


TO 
SPACES BETWEEN \ AND 


RRE SIGNIFICANT &7 THE MOULD 
(S FILLED FROM LEFF TO RIGHT 


THIS ONE 15 
50:<# <# ORNOT >#¥e# a 
N.C.C. “STANDARD 


BE OR NOT fy BASIC” , 
Wc SAYS JUSTIFY pa JUSTIFY S. CHARACIER 
Léefr & TRUNCATE RIGHT & TRUNCATE MOULD #&© ALSO< 
TO THE RIGHT 7O THE LEFT 


THERE MAY BE MORE WAYS YETe WHY CAN®T WE STANDARDIZE Y 
EVEN BAD STANDARDS WOULD BE BETTER THAN NONE AT ALL o 
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CONTROL 


WITH THIS INSTRUCTION YOU MAY 
ALTER THE SEQUENCE IN WHICH 
BAS/C OBEYS THE NUMBELF’EID 
STATEMENTS OF YOUR PROGRAM, 


“Suis PROGRAM NEVER 
REACHES ITS ENDo 
ON BEING GIVEN A 
VALUE FOR D IT 
COMPUTES & PRINTS 
V, THEN GOES 
BACK TO LINE 20 
TO ASK FOR 
ANOTHER YALUE FOR 
D ow AND SO ON G&S 
AND SO ONo 


{0 PRINT "VOLUMES OF BALLS" 
20 PRINT 

30 PRINT "TYPE A DIAMETER" 
40 INPUT D 

50 LET V = 3.141592 *D43 /6 

60 PRINT "VOLUME OF BALL IS"3V 
70 GO TO 20 

80 END 


RUN 
VOLUMES OF BALLS 


THE WAY TO STOP THIS 
PROGRAM (tS TO PRESS 


as GD KEY 


TYPE A DIAMETER 
@ 6.5 
VOLUME OF BALL IS 143.793 


Ao 
(OR WHATEVER kEY YOUR TYPE ANQIAMELEE 
OWN INSTALLATION USES ; 


FOR THIS o eZ BZEAK 
Lone. basics 
his is NOT A TRI i Levis LE,  BAS/C IS VERY USEFUL 


AS A CALCULATOR FOR EVALUATING FORMULAE FOR SUCCESSIVE 
VALUES OF VARIABLES TYPED IN, AND THERE 1S NO 
EASIER WAY OF STOPPING THAN PRESSING A SINGLE 
KEY o 


SYNTAX 8 


ONLY L/NE NUMBERS HERE: 

YOU CAN’rT HAVE 
LET L* ZO 

AND SUBSEQUENTLY 
GO TO L ed 


You MAY TYPE 
GOTO 
AS ONE WORD 


Yfou MAY GOTO ANY LINE IN THE PROGRAM (@ EVEN IF IT 
CONTAINS A NON-EXECUTABLE STATEMENT LIKE REM JQ AND 
EXECUTION WILL CONTINUE FROM THERE , SF GOTO POINTS TO A 
NON-EXISTENT LINE NUMBER THEN MOST SAS/CS WILL REFUSE TO 
START EXECUTION WHEN YOU TYPE RUN (SIMILARLY FOR IF & ON )o 
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. ” WITH THIS INSTRUCTION 
YOU MAY ALTER THE 
| ORDINARY SEQUENCE OF 
EXECUTION com 


fo” BUT ALTER IT CONDITIONALLY g THE CONDITIONS ARE 2 


THE LINE HAS 


TO EXIST NW 


20 IF A= B4C THEN GO 


ONE OF THE SIX 
POSSIBLE CONDITIONS 


DONT TYPE A SPACE 
BETWEEN SYMBOLS 
IN A COND/TION 


EQUALS 


IS GREATER THAN 


IS LESS THAN 


JS GREATER THAN 
OR EQUAL TO 
[S LESS THAN 
OR EQUAL TO 


DOES NOT EQUAL 


GO 70 THIS LINE 
(ANO CONTINUE 
FROM THERE) IF 
THE CONDITION 
APPLIES? OTHERWIS: 
JUST CARRY ON 


LINE NUMBERS ONLYs 
You CAN’T HAVE 
“THEN L" 


hae THING ON EITHER SIDE 
OF THE “CONDITION” MAY BE A AWUMBER OR EXPRESSION 2 
ee 


OO I ee 
30 IF 1+SQRCAt2+B42)> 0.2 THEN 10 THE WAY TO TEST 


4 “APPROXIMATE ” 
40 IF ABS(A-B) <= 0.01 THEN 15 EQuauiry oF A&B 


OR IT MAY BE A ZEXT OR A TEXTUAL VAR/ABLE WHEN THE 
CONDITION I5 NO MORE COMPLICATED THAN 4QUALS OR DOES NOT 


EQUAL (BUT SEE BOTTOM OF PAGE )3 


50 IF a¢g="YeES" THEN 150 


60 IF "FINISH" <> A$ THEN 10 


70 IF R$E=T$ THEN 230 NOT EQUAL 


IT IS NONSENSE TO COMPARE NUMERICAL VARIABLES WITH TEXTUAL 
VARIABLES § 


eens aes ese eke _ enc wma 
| 80 IF Q$=Y THEN 99 | 


MANY BAS/CS ALLOW THE WORDS “GO TO” (or THE WORD “ eoro"} 
IN PLACE OF “THEN” BUT FOR THE SAKE OF PORTABILITY IT 
IS BEST TO STICK To “THEN” a 


[Nosr BAS/CS ALLOW MORE COMPLICATED COMPARISONS OF TEXTS o 
GENERALLY “Z" 15 CONSIDERED “GREATER” THAN "A" AND "“g# 15 
GREATER THAN "O", A SPACE “" 4S LESS THAN ANY LETTER OR 
DIGIT, THUS YOU MAY SORT NAMES ALPHABETICALLY 2 

"A" < "ABALONE" < "ACORN" & "V2" < "Vg" 


Al 


YOU MAY CAUSE BAS/C TO SIO!’ 
EXECUTION AT ANY LINE OF YOUR 
PROGRAM USING THIS INSTRUCTION. 


We LAST \NSTRUCTION OF EVERY PROGRAM MUST BE ““ END", 
NO OTHER STATEMENT BUT THE LAST MAY SAY “ END’ ys 


“END” SERVES IN A DUAL ROLES 


PIT MARKS THE END OF EVERY PROGRAM FOR THE 
CONVENIENCE OF THE BAS/C SYSTEM WHEN 
TRANSLATING BAS/C LANGUAGE INTO SOME OTHER 
COMPUTER CODE STRAIGHT AFTER YOU TYPE “ RUN” $% 


Sy WHEN “END” 15 ACTUALLY “OBEYED” DURING 
SUBSEQUENT EXECUTION IT MAKES THE COMPUTER 
STOP EXECUTING THE PROGRAM o 


lelowever THERE MIGHT BE SEVERAL PLACES IN A PROGRAM WHERE 
YOU WOULD LIKE TO TELL BAS/C TO STOP EXECUTION. yOu CAN 
THIS BY A “GO TO” WHICH SENDS CONTROL TO “END” OR you 

CAN DO IT BY A “STOP” INSTRUCTION, “STOP”, UNLIKE “END”, 
MAY APPEAR MANY TIMES AND ANYWHERE INSIDE A PROGRAM 4 


10 PRINT “DO YOU LIKE PROGRAMMING ? " 

20 INPUT A$ 

30 IF A$="NO" THEN 70 

40 IF A$="YES” THEN 90 

50 PRINT "NOT AN UNEQUIVOCAL ANSWER” 
60 GO TO 100 lS 

70 PRINT "PERSEVERE! YOU WILL LEARN TO" 
80 GO TO 100 


90 PRINT me ING ISN'T IT?" 
100 END wae 


THESE TWO SILLY PROGRAMS DO THE SAME JOB AND — ILLUSTRATE 
THE USE OF “END” AND “ STOP” . 


PRINT “DO YOU LIKE PROGRAMMING 7?” 
INPUT A$ 

IF A$="NO" THEN 70 

IF A$="YES" THEN 90 

PRINT “NOT AN UNEQUIVOCAL ANSWER" 


STOP 
PRINT “PERSEVERE! YOU WILL LEARN To “ 
STOP 
PRINT "FASCINATING ISN'T IT?" 
100 END 


AZ 


GO TO, 
ILLUSTRATING IF <@THEN 


& STOP 


LPs PROGRAM SOLVES A PAIR OF SIMULTANEOUS EQUATIONS 


HAVING ANY NUMBER OF RIGHT-HAND SIDES, LET THE TWO 
EQUATIONS BE 


cX + dy = q 


USING CRAMER®S RULE THE SOLUTION MAY BE WRITTEN LIKE 
THIS 2 
b b 


ap WHERE. THE VERTICAL BARS 
qd cq INDICATE DETERMINANTS 
X= > Y= —— WHICH MAY BE EVALUATED 
ab le | THUS 8 
cd cd ab = astd—cxb 
Cc 


d 


lr THE DETERMINANT IN THE DENOMINATOR IS ZERO ( OR VERY 
VERY CLOSE TO ZERO J) THEN NO SOLUTION [5S POSSIBLE o 


PRINT "TWO SIMULTANEOUS EQUATIONS" 
PRINT "TYPE COEFFICIENTS OF X&Y3 FIRST ROW" 
INPUT A,B 

PRINT “NOW SECOND ROW " 

INPUT C,D 

REM EVALUATE DENOMINATOR , M 

LET M=A*D-—-C¥B 

IF ABS(M)>0.0000L THEN 110 

PRINT "SOLUTION IMPOSSIBLE$ DET="3 M 
STOP 

PRINT “TYPE 2 VALUES FOR R.H. SIDE” 
INPUT P,Q 

LET X=(P*D—-Q*B)/M 

LET Y=(A*Q—Cx*#P)/ mM 

PRINT "X="5 X5 "Y="3¥ 

PRINT "ANY MORE R.H.SIDES? YES?" 
INPUT A$ 

IF A®= "YES" THEN {10 

REM YOU COULD HAVE "STOP" HERE 

END 


43 


ILLUSTRATING 8. 
IF “THEN 


HERE IS A PROGRAM DESIGNED TO CALCULATE AREAS OF RECTANGLES 
TRIANGLES AND CIRCLES. JT ASKS YOU TO TYPE THE NAME oF A 
SHAPE 3 THEN IT ASKS FOR DIMENSIONS RELEVANT TO THAT 
SHAPE , IF YOU TYPE ANY NAME OTHER THAN “RECTANGLE 
“TRIANGLE” OR “CIRCLE” THE PROGRAM STOPS RUNNING g 


PE LOGIC OF THE PROGRAM /S SHOWN BY THE FLOW CWART BELOW, 
THERE ARE NICER WAYS OF ORGANIZING SUCH PROGRAMS USING 
INSTRUCTIONS NOT YET EXPLAINED 3 THIS PROGRAM WAS DESIGNED 
TO {LLUSTRATE “GO TO” AND “IF THEN” o 


S FLOW ACHART 
OF A PROGRAM FOR WORKING 

oe SHAPE OUT AREAS OF SIMPLE SHAPES 
k- By Pak oF 
WIE ES» OD 
Uf ® ca ZY. 


INPUT LENGTH 
& BREADTH B,D 


INPUT THREE 
SIDES A,B,C 


COMPUTE 
Se 5 (A+BtC) 


INPUT 

DIAMETER, D 

COMPUTE COMPUTE COMPUTE 
Z= w D*/4, Z= ,/SG-AXS-BYS-C) F | Z = BxD 


PRINT THE AREA, Z 
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PRINT ‘“#*#*AREA CALCULATOR***" 
20 PRINT - 
30 PRINT “TYPE: RECTANGLE, TRIANGLE OR CIRCLE" 


@ 


180 PRINT “TYPE LENGTHS OF 3 SIDES" «--- 


—_ 


190 INPUT A,B,C 


40 INPUT S$ 

50 REM 

60 IF S$$= "RECTANGLE" THEN 130 e200, 

70 IF S$$= "TRIANGLE" THEN 180) -e--- cn 
80 IF S$= "CIRCLE" THEN 240 = ceccecccdocing 
90 PRINT S¢,"MEANS STOP” , : 
[00 GO TO 320 NK GOES STRAIGHT 2 ! 6 
110 REM To “END” ' : 
120 REM 6 poe 
130 PRINT "yy PE BREADTH & DEPTH " qooet $ 
140 INPUT B,D : 
150 LET Z=B*D rt 
160 GOTO 280 -----~--------T CC Cee 
170 REM \ ; ; 


o?eo BOQGCHK GO CeKOPCseOeO SCoOSBP®acoce TeBGQeet eoaeeot Tocco 8 e@ Ces CO @GOOCe oe o@@ 


| 
200 LET S=0.5*( A+B+C) | 
210 LET Z=SQR(S*(S-A) *(S-B)*(S-C)) 
220 GOTO 280 —---------—------ a1 
230 REM po 
240 PRINT "TY PE THE DIAMETER" Koercccesce® 
250 INPUT D 
260 LET Z=3.141592*D+t2/4 -3. 
270 REM > Hy 
280 REM FLOWS MERGE HERE «<-—--- 
290 PRINT 
300 PRINT "AREA OF "3 $$3",15"3 Z 

© e310 


320 END *° iy bo 


RUN 
*** AREA CALCULATOR*** 


TYPE: RECTANGLE, TRIANGLE OR CIRCLE 
? RECTANGLE 

TYPE BREADTH & DEPTH 

2 14.6 10 


AREA OF RECTANGLE IS 146 


TYPE: RECTANGLE, TRIANGLE OR CIRCLE 
2? NO 
NO MEANS STOP 


THIS INSTRUCTION 
SEQUENCE OF OBEYING 
INSTRUCTIONS 


IS A MULTI-WAY SWITCH o 


80 oon 4 GO An 100,110, ne 130 


VARIA ne ig hoe WORD L/S is tINE. NUMBERS 
EXPRESSION OR Two (NOT EXPRESSIONS) 
ALL NUMBERED LINES 


MUST EXIST 
BAS/C EVALUATES THE EXPRESSION AND 83 


© SOME BAS/CS “ROUND? THE RESULT JO THE NEAREST 
INTEGER 4 


© SOME BAS/CS TAKE THE /N7TEGRAL FARTo 


IF THE RESULT IS 1 THEN BAS/C USES THE F/RST NUMBER IN THE 
List (GOTO 100} 4 JF THE RESULT IS 2 THEN BAS/C USES 
THE SECOND NUMBER € GO TO 110 } AND SO ON, 


PRINT “TYPE A DIGIT FROM O TO 3" 
PRINT "PRESS 'BREAK' KEY TO STOP“ 
INPUT D 

IF D-INT(D) <>0 THEN 140 cveceoe, 
IF D<O THEN 150  ceeese ee ceeeceece 
IF D>3 THEN 150 .------- eee re eee 
REM NOW CERTAIN DIS 0,1,2 OR 3 
PRINT “YOU TYPED “s 

REM 

ON D+i GO TO 100, 110, 120, 130 

REM CAN'T GET; HERE ; 

PRINT “ZERO"« ; 


we acwvwm cc CoD Come oe oO DOO OO DO? 
i 


GO TO {0 
PRINT “ONE* «°°. 

GO TO 10 a 
PRINT "TWO" 0 er . 
GO TO 10 ae 
PRINT "THREE" 7" 
GO TO 10 


PRINT "NON INTEGRAL" fe coccoe” 
GO TO 10 

PRINT “oUT OF RANGE” <«-------+---+----- 
GO To 10 
END 


Q@ CONTINUED OPPOSITE p 
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RUN 


TYPE A DIGIT FROM 0 TO 3 
PRESS 'BREAK' TO STOP 

20 

YOU TYPED ZERO 

TYPE A DIGIT FROM 0 TO 3 
PRESS ‘BREAK’ TO STOP 

2 6 

OUT OF RANGE 


LPs IS A USEFUL INSTRUCTION, BUT BE CAREFUL ABOUT 
ITS SPECIAL /NTERPRETATIONS BY DIFFERENT VERSIONS OF 
BASIC 4 


$e BECAUSE SOME BAS/CS USE THE NEAREST INTEGER 
AND OTHERS THE /N7EGRAL PART OF THE EXPRESSION , 
ENSURE YOUR OWN EXPRESSIONS CAN ONLY YIELD 
INTEGRAL RESULTS ( SEE LINE 40 OPPOSITE ) o 


XP SOME BAS/CS REPORT AN ERROR AND STOP THE RUN JF 
THE RESULT OF THE EXPRESSION |S OUT OF RANGE s 
BUT OTHER BAS/CS GOTO THE F/RST LINE IN THE 
LIST IF THE RESULT IS LESS THAN 1 AND TO THE 
LAST \F THE RESULT IS GREATER THAN THE NUMBER 
OF NUMBERS IN THE LISTo YET OTHER BAS/CS JUMP 
TO THE LINE FOLLOWING “ON” (LINE 85 OPPOSITE ) 
IF THE RESULT IS OUT OF RANGE, SO FOR THE 
SAKE OF “PORTABILITY” PUT /N YOUR OWN TESTS 
FOR RANGE ( SEE LINES 50&60 OPPOSITE Da 


eLow ARE SHOWN OTHER (LESS COMMON 2} FORMS OF THIS 
INSTRUCTION AS USED IN DIFFERENT YERSIONS OF BAS/C, 


BO ON Dfi THEN 100, 110, 120, 130 
80 GOTO 100, 110,120,130 ON D+ 


80 GOTO D+1 OF 100,110, 120,130 


THE INSTRUCTION BELOW MAY BECOME UNIVERSAL /NAOD/TION 
TO THE *ON®GOTO” DESCRIBED ABOVE so THE MEANING OF 
“ON*® GO SUB” WILL BE CLEAR WHEN YOU REACH PAGE 55 


80 ON D+1 GO SUB 100, 110, 120, 130 
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THIS MAKES BA.S/¢ 

OBEY A SEQUENCE 
| OF INSTRUCTIONS 

AGAIN & AGAIN 


ig ~WE CALL THIS SEQUENCE A LOOP o 


YOU CAN CREATE A 
LOOP BY SETTING 
A “COUNTER” 


10 LET M=3 
20 READ X$ 
30 PRINT M3X$ 


40 LET M=M-1 rudy saceesenvecy 
<> 


60 PRINT “PEAR TREE" 
70 DATA "HENS", "DOVES", "PARTRIDGE" 
80 END 


RUN 


(LET M=M-1) > 
TESTING THE REMAINING 
VALUE 

( IFM<>O0p, 
AND “ LOOPING™ BACK 


3 HENS 
3 roves ( THEN 20 p 
TER 
{ PARTRIDGE eons opr COUNTE 
PEAR TREE ° 


FOR M = 3 TO 1 STEP ~-1 


( READ X$ 
30 PRINT M3X$ 
40 NEXT M 

50 PRINT “PEAR TREE" 


GO DATA "HENS", "DOVES" , ‘PARTRIDGE’ 
70 END 


Whe FORM OF THE INSTRUCTION IS 83 


ANY NUMERICAL EXPRESSIONS OF ANY 
VARIABLE COMPLEXITY HERE 


10 FOR M = 3 TO 1” STEP -1 


INSTRUCTIONS 70 BE OBEYED SUCCESSIVELY 


-s 
NEXT M SSG SAME VAR/ABLE 
AS BEFORE 


IF THE STEP IS +1 THEN YOU MAY) SIMPLIFY BY OMITTING 
“step 4° 2 


100 FOR N=P TO Q 


BUT THE SAME 
RESULT MAY BE 
ACHIEVED MORE 
SIMPLY AS SHOWN 
HERE Co 


ONL eet 


As 


LOOPS MAY BE NESTED ONE INSIDE THE OTHER | THERE 1S ALWAYS 
PRINT "OLD GLORY (A.D. 1912)" SOME LIMIT TO 


FOR R= 1 10 7 THE _PERUISIBL 
LET Pes" A Tgrucash 
IF R=] es) 7 
LET Pg$= "x < Fede) 


ING» ATYPICAL 
LIMIT 1$§ ABOUT 
40 WHICH 18 

FOR C =1 TO 

1 TO 8 AMPLE DEPTH 

PRINT P$3 

NEXT C FOR EVEN THE 

IF R-2*INT(R/2)=0 THEN 130 re SROG RAM. 

FOR C= 1 TO 12 RAMS 

PRINT “=="; 

NEXT C 


PRINT 
NEXT R 

FOR R=1 TO 3 
PRINT 

FOR C=1 TO 20 
PRINT “m=e"s 
NEXT C 
PRINT 
NEAT R 


SUMPS WHEN 
R is EVEN Y 


AA 
LOOPS MUST 
NOT BE 
INTERLEAVED., 


REM FIND YOUR PLACE ON THE MARE* 
20 DATA “BREWER', "STEWER" , "GURNEY “ 
30 DATA "DAVEY", "WHIDDON", "HAWK" 

40 DATA "COBBLEIGH" 

50 PRINT "TYPE YOUR LAST NAME" 

INPUT N¢$ 

O FOR L= i TO 7 


t OLDE ENGLISHE FOLKE 
[ONGE “WIODICOMBE FA/R” 


THIS [S CALLED 


READ M$ 
TO CI a AAO 90 IF Mé=N$ THEN 130 
° {00 NEXT L 


110 PRINT N$3" IS NOT ON THE MARE" 
120 GO TO 140 

130 PRINT N$;3" IS NUMBER'3 L 

END 


THE LOOPING VAR/ABLE @L ABOVE]) KEEPS ITS VALUE IF YOU JUMP 

OUT OF A LOOP BEFORE THE LOOP HAS RUN ITS COURSE, BUT IF 

YOU DROP OUT AT_JHE _BoOTTOK ( IN THIS CASE TO LINE {10 ) 
eS — foes. 


THEN Ss ASSUME ANYTHING ABOUT THE 

VALUE OF THE LOOPING VARIABLE 3 
ZN IT MIGHT BE 8 ABOVE ( THIS IS 

EXPLAINED OVERLEAF) BUT /T MIGHT NOT a BAS/CS D/FFER o« 
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fou shoutD NEVER JUMP INTO THE MIDDLE oF A LOOP? 
120 IF A>2 THEN 210 4 


BAS/C WOULD NOT 
OBEY A “NEXT” 
FOR I= 1 TO 6 JF IT HAD NOT 
PRINT ‘“*"5 PREVIOUSLY OBEYED 
NEXT I THE MATCHING 
LET A=A-t “FOR” o 


BUT IN MOST BAS/CS YOU MAY JUMP OUT OF A LOOP AND THEN 
BACK IN AGAIN @ NOT A VERY GOOD PRACTICE } o 


1450 FOR T=1 TO 6 

160 READ M$ 

170 IF M$=N$ THEN 300 
180 NEXT I et 


THE JARGON FOR THIS 
IS A LOOP WITH 
EXTENDED RANGE 5 


Ww GENERAL YOU SHOULD ENTER A LOOP THROUGH ITS “ FOR” 
STATEMENT AND EITHER & 


300 PRINT M$ 
310 GO TO 180 


@ FALL THROUGH AT THE “NEXT”, OR 
® JUMP OUT AND STAY OUT «4 


IF YOU NEED EXTENDED RANGE THEN ACHIEVE IT USING 
THE “GO SUB” INSTRUCTION DESCRIBED ON PAGE 52.6 


[JF A PROGRAM 1S NOT SUPPOSED TO EXECUTE A LOOP AT ALL 
UNDER CERTAIN CONDITIONS THEN IT IS SAFEST TO TEST FOR 
THOSE CONDITIONS, AND , IF THEY APPLY, TO AVOID THE LOOP 
ALTOGETHER 4 


FOR I= 1 TO 5 
READ C 

PRINT C$ 

IF C <= 0 THEN 80 
POR R= 1TO C 


PRINT "«"s 

NEXT R WHEN CSO 
PRINT 

NEXT IJ 

DATA 3, 0,7 


THE REASON FOR THIS 
PRECAUTION |S GIVEN 
OPPOSITE , 
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DANGERS WITH LOOPS 5 DIFFERENT SBAS/CS DEAL WITH 
THEM DIFFERENTLY ao HERE IS THE INTERPRETATION 
IN MORE THAN ONE S7ZANDARD BASIC o 


CONSIDER THIS LOOP $ 10 FOR V= A TO Z STEPS 


Cc ae 


Whe INTERPRETATION INVOLVES 3 VARIABLES WHICH BAS/C 
ITSELF CAN USE BUT WHICH YOU g THE USER 5 CAN NEITHER 
REFER TO NOR CHANGE o« CALL THEM 2 oO” 9 uy 


(ae MARS VENUS & FISH 


€.9. IN THE LOOP 
“ror V=1 103” 


Ox BECOMES 
SUCCESSIVELY 
4 9 ~—1 9 a) 
=, THEN +1 ON EXIT 
a ~ 
LET Ot = (v — OY) x SaN( Q) 


ie > 0 “FALLS THROUGH” PAST 
NEXT VY EVEN JF 


VER THE [exe 7 HAS 
NEVER BEEN EXECUTED, 
é9. FOR V=170 0 STEP +4 
o” 


IAS THE CONCEPT SEEMS SIMPLE THERE ARE HIDDEN 


WHERE A,gZ& S$ COULD BE 
COMPLICATED EXPRESSIONS ow 


EXECUTE 


DOWN TO “NEXT Vv” 


BUT SOME BASICS EXECUTE 
THE BODY AT LEAST ONCE ) 


REGARDLESS OF A, Z&S 
ENCE THE PRE TION oppose, 


V HAS A VALUE OF 
“SWE NEXT VALUE NOT USED” 


LET V=V+Q LE 


woud BE UNDEFINED 9 
his LOGIC IMPLIES NO MATTER WHAT CHANGES You MAKE TO A,Z ORS 
IN THE BODY OF THE LOOP JT WILL NOT AFFECT THE NUMBER OF TIMES 
ROUND THE LOOP, BUT YOU SHOULD WEVER CHANGE. THE VALUE OF V 
IN THE BODY OF THE LOOP. 

REMEMBERING THAT MANY BAS/CS DON?T USE THIS LOGIC 5 EVER 
CHANGE ANYTHING /N THE BODY THAT COULD ALTER THE VALUE 
OF V,A,Z OR So KEEP THE CONTROLS SIMPLE 2 
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SUB ARETORA| 


IN MANY PROGRAMS A PARTICULAR SEQUENCE OF INSTRUCTIONS 
OCCURS SEVERAL TIMES, IN SUCH CASES YOU DON’T HAVE TO 
REPRODUCE THAT SEQUENCE SEVERAL TIMES $ YOU MAY PARCEL IT UP 
AS A SUBROUTINE AND SIMPLY GO To THAT SUBROUTINE FROM ANY 
LINE IN THE PROGRAM AND RETURN TO THE PLACE FROM WHENCE 
YOU CAME, 


THE PROGRAM CALLED “OLD GLORY %? ON PAGE 49 HAS A SEQUENCE 


RIN IMES $ 
OCCURRING THREE TIM FOR C= 1 TO something 
PRINT something § 


EXT C, 
WHICH COULD BE PARCELLED UP AS A SUBROUTINE 3 


REM SUBROUTINE WITH B & P$ 
310 FOR TI=i17TO B 

320 PRINT PS$3 

NEXT I 
RETURN 


AND THE PROGRAM ‘**OLD GLORY’ RE-CAST LIKE THIS 3 
10 PRINT "OLD GLORY WITH Go SUB & RETURN" 
20 FOR R=i TO 7 

2 SPACES 

30 LET P$=" 
40 IF R=1 THEN 70 
50 LET P$= “et S05 | 
70 LET B=8 


GOES 70 300 


90 IF R—-2*INT(R/2)=6 THEN 130 
100 LET B=12 


140 LET P$ = WH ae ame 
RETURNS TO 
120 GO SUB 300 a 


130 PRINT 
{40 NEXT R 
150 FOR R= 1 TO 3 
160 PRINT 
170 LET B=20 
180 GO SUB 3060 an. Cesrunit 70) 
200 PRINT . 
210 NEXT R 
4 


220 GO TO 900 INSERT 


SUBROUTINE 


900 END HERE 
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HE FORM OF THE INSTRUCTION 1S 8 


GO3SUB MAY BE LINE NUMBER ONLY? 
ONE WORD 


NOT AW EXPRESSION 
80 GO SUB 


THIS IS KNOWN 
IN THE JARGON 


300 


AS CALLING 
A SUBROUTINE , 
SUBROUTINE WITH ONE NOTE 2 
OR MORE “RETURN”? STATEMENTS 
SENDING CONTROL BACK 70 THE LINE SUBROUTINES MAY 

IMMEDIATELY FOLLOWING “GO SUB” THEMSELVES 
CONTAIN “GO SUB 
STATEMENTS @ 


“GO SUB” MAY BE ANYWHERE IN THE PROGRAMS$ THE SUBROUTINE 
BEING CALLED MAY ALSO BE ANYWHERE ( NOT NECESSARILY ON 
HIGHER-NUMBERED LINES 2), YOU NEED CAREFUL ORGANIZATION 
TO PREVENT AN IMPOSSIBLE TANGLE g 


L\ FEW BAS/CS ALLOW DUMMY PARAMETERS IN A SUBROUTINE o 
Q THEY WORK IN THE MANNER EXPLAINED ON PAGE 26 IN CONNECTION 
WITH DUMMY ARGUMENTS OF FUNCTIONS 5} HERE AGAIN DETAILS 
VARY A LOT FROM B8AS/C TO BAS/C AND YOU SHOULDN®T USE 
DUMMY PARAMETERS IF YOU WANT “PORTABLE” PROGRAMS 5 


SP ke CARE NOT TO “FALL” INTO A SUBROUTINE BY ACCIDENT, 
NOTICE LINE 220 OPPOSITE3 IF THIS WERE OMITTED THERE WOULD 


BE SUCH A “FALL”, 


CONTINUED OVERLEAF es 
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SISI3 (=) 


low NOVICES TO PROGRAMMING MAY CARE TO SKIP THIS _ 
A DouBLE PAGE THE FIRST TIME THROUGH THE BOOK | 


“GO SUB” MAY APPEAR ANYWHERE IN A PROGRAM g LIKEWISE THE 
SUBROUTINE BEING CALLED MAY BE ANYWHERE, BAS/C HAS 
NO SURE WAY OF ASSOCIATING A ‘“* RETURN” WITH THE 
PARTICULAR “GO SUB” OF YOUR INTENTIONS | IT9S NOT LIKE 
“FOR V=° FOLLOWED BY “ NEXT V % WHERE THE “V" MAKES 
THE ASSOCIATION CLEAR .) SO WE DESCRIBE BELOW HOW 
BAS/C |S ABLE TO MAKE SUCH AN ASSOCIATION 4 


Some BAS/CS OEAL WITH “GO SUB” BY A TECHNIQUE CALLED 
STACKING so THE STACK WORKS LIKE THIS 2 


WHEN BAS/C MEETS “GO SUB” IT NOTES THE 
a —» NUMBER OF THE LINE IMMEDIATELY FOLLOWING 
00K Go SUB’? AND PUTS THIS NUMBER ON THE 
TOP OF THE STACK 3 THEN CONTROL GOES TO 
THE LINE NOMINATED AFTER **GO SUB” 5 


AT THE NUMBER CURRENTLY AT THE 7OP OF THE 
STACK 8 GOES STRAIGHT TO THE LINE HAVING THAT 
NUMBER $ THEN 7HROWS AWAY THAT NUMBER FROM 
THE TOP OF THE STACK a 


\e/HEN BASIC MEETS A “RETURN” ‘IT SIMPLY LOOKS & 


This LOGIC IMPLIES THAT IF 8AS/C MEETS A “RETURN” BEFORE THE 
VERY FIRST “GO SUB’ THEN THERE WILL BE AN EMPTY STACK, 
HENCE NOWHERE TO GO ¢@ OFTEN A BUG IN THE PROGRAM 
CAUSING CONTROL TO “FAZL’? INTO A SUBROUTINE ON THE 
OTHER HAND BAS/C MAY KEEP MEETING “GO SUB” BUT NOT 
ENOUGH “RETURNS” RESULTING JIN THE STACK FILLING TO 

CAPACITY (@ WHICH VARIES FROM BAS/C TO BAS/C BUT IS TYPICALLY 10) 


J\LTHOUGH NOT ALL BAS/CS USE THIS PRECISE MECHANISM FOR 
HANDLING °°GO SUB’ YOU MAY TZAH/INK OF IT THIS WAY WHEN 
TESTING THE PROPOSED LOGIC OF A PROGRAM You ARE GOING TD 
WRITE » WHEN TRACKING DOWN BUGS IN A PROGRAM , AND WHEN 
TRYING TO FIGURE OUT THE LOGIC OF SOMEONE ELSE7S PROGRAM , 


\)CHETHER OR NOT YOUR OWN BAS/C HANDLES ‘*GO SUB” USING A STACK 
IS ONLY IMPORTANT IF YOU WRITE A SUBROUTINE THAT CALLS 
/TSELF 9 THIS IS KNOWN AS RECURS/ON AND (S ONLY FEASIBLE 
WITH THE LOGIC OF THE STACK EXPLAINED ABOVE 9 
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Aphis STACK SHOWS THAT THE LAST “GO SUB” 
TO BE OBEYED JS THE SAME AS THE PREVIOUS 
ONE 4 INDICATING THAT A SUBROUTINE HAS 
JUST CALLED ITSELF D/RECTLY o EARLIER 
A SUBROUTINE HAD CALLED ANOTHER WHICH, IN 
TURN, HAD CALLED THE FIRST ONE AS SHOWN 
BY THE #e ON THE PICTURE, THUS A SUBROUTINE 
HAD CALLED {ITSELF /ND/RECTLY o 


YOU MAY DISCOVER IF YOUR VERSION OF BAS/C ALLOWS 
SUBROUTINES TO CALL THEMSELVES, TRY THE FOLLOWING LITTLE 
PROGRAM WHICH FINDS THE HIGHEST COMMON FACTOR OF TWO 
NUMBERS BY EUCLID9S METHOD, 


u  [yYouR OWN BAS/C 
PRINT "TYPE 2 POSITIVE INTEGERS MAY WELL SAY 


POT ON gk caus svesoutn®) — | THERE ARE NOT 


& 99 
PRINT "THEIR H.C.F. 18 "3 P ENOUGH “RETURNS 


me \N WHICH CASE 
Bet STOPS ? THRO’ 
ven - ae SverouTine)) | iT PROBABLY 


> 
REM START OF SUBROUTINE OnE LOWE USE 
LET P=N 


A STACK o 
LET N=M—N#INT (M/N) 
LET M=P (you MAY THEN 
IF NFO THEN 13067 tN=2 


CHANGE LINE 120 
GO SUB 70 ctf cfs (ELF IF WHO 


TO *G@0 TO 70” 
RETURN AN DM SHOULD 
END o) 


IF YOUR BSAS/C ACCEPTS THE PROGRAM WITHOUT ANY ALTERATION TO 
LINE 120 THEN YOU MAY EXPERIMENT TO FIND THE LIMITING HEIGHT 
OF THE STACK, THUS IF you TYPE 85,204 THE PROGRAM 
WILL PRINT THE RESULT WHICH 185 17. BUT IF YOU TYPE 
8S, 289 THEN THE ALLOWABLE STACKING HEIGHT WILL 
PROBABLY BE EXCEEDED ALTHOUGH THE ANSWER IS STILL {70 


Te “ PLAYING COMPUTERS”? USING PENCIL, PAPER AND POCKET 
CALCULATOR a THIS SHOULD REVEAL EUCLID9S METHOD AND ALSO 
SHOW HOW THE 8TACK BUILDS UP AND COLLAPSES , 


95 


THIS {S$ AN JINFURIATING GAME, 


THE PROGRAM SHOWN HERE WAS DESIGNED TO 
PLAY °**MOO”? AND ILLUSTRATE ‘* GO SUB” , 


ku HOW TO PLAY wp 


START BY THROWING TWO DICE, AS EACH DIE IS 
CAST TYPE ITS SCORE ON THE KEYBOARDo ( THIS 
MAKES SURE YOU DON?T PLAY THE SAME GAME 
EVERY TIME sp 


THE COMPUTER CHOOSES A NUMBER WITH FOUR 
DIGITS ‘Gm NO TWO ALIKE Ga ({ NOTES THE 
FIRST DIGIT COULD BE ZERO), 


YOU GUESS WHAT NUMBER THE COMPUTER HAS 
CHOSEN AND TYPE YOUR GUESS WHEN INVITED 
TO DO SO. 


THE COMPUTER NOTES HOW MANY OF YOUR DIGITS 
ARE RIGHT o> BUT IN THE WRONG PLACE co 
EACH OF THESE IT CALLS A COWo 


THE COMPUTER NOTES HOW MANY OF YOUR DIGITS 
ARE NOT ONLY RIGHT se% BUT ALSO /N THE 


(ES RIGHT PLACE cm EACH OF THESE IT CALLS A 


BULL » 


HAVING REPORTED YOUR SCORE OF BULLS & COWS 
THE COMPUTER INVITES YOU TO GUESS AGAIN 

ye AND SO ON UNTIL YOU SCORE FOUR BULLS 

AND NO COWS oa 


HERE JIS THE PROGRAMS 


06 


REM THE GAME OF MOO 
PRINT "THROW TWO DICE" 
INPUT 1,J 


FOR K= 0 TO 6*1 +J -7 


LET ZK RND <Qy Possvary 
NEXT XK RNDCO) 


REM NOW FOR THE PROGRAM PROPER 


LET X=INT(10000*RND) 


{20 LeT Y=X 2 CHECK NO TWO 
130 GO SUB 1000 =) DIGITS ALIKE 
{40 LF C>O JHEN 110 ——~ 


{50 REM NO COWS ON COMPARISON WITH SELF 
{60 PRINT "I HAYE CHOSEN A 4-DIGIT NUMBER” 
170 LET T=0 ye 

180 LET T=T+1 

190 PRINT "WHAT'S YOUR GUESS" 

200 INPUT X COMPARE. 

210 GO SUB 1000 om GUESS WITH NUMBER 
220 PRINT B> "BULLS &"s Cy "Cows" 

230 IF B<4 THEN 180 

240 PRINT "THAT TOOK": Ts; "TRIES" 

250 PRINT START A NEW 

260 GOTO tlo ——< GAME 

265 REM STOP THIS GAME WITH 'BREAK' KEY 


1000 REM SUBROUTINE 

{010 LET B=o0 

{020 LET C=O <a cons) PICK EACH DIGIT 

{030 FOR I = 1 TO 4 bE Ss 

{1040 LET K#=10OtI 

{050 LET UL=INT(10*(X—-K+INT(X/K)+-1 

O60 = { To OMPARE EACH DIGIT 
‘ovo Ler Me 104) + <a OF =. NUMBER wire LON 


1075 LET P=INT(108(Y —M*INT(Y/M)+-1)/M 
1080 IF L<>P THEN 1130 ish 
1090 LET C=Cti THE 0+] COMUENSATES 
1100 IF I<>J THEN 1130 FOR ROUNDING ERRORS 
(110 LET C=C-t 


INT (3.99999) ’S 3 
1120 LET B= Btl INT (399999 2!) 15 & 
{130 NEXT J 
140 NEXT I 
1150 RETURN 
1160 REM 
1200 END 


RUN 


THROW 2 DICE 
? 6,3 

I HAVE CHOSEN A 4-DIGIT NUMBER 
WHAT'S YOUR GUESS 

? 1234 

O BULLS & 2 cows 


WHAT'S YOUR GUESS 
? 5678 <ERGAND SO On A BvENTUALLY J 
ES oS 


AT TOOK G TR’ 
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ARRAYS 


IN ADDO/T/ON TO THER S/IMPLE 

NUMERICAL & TEXTUAL VARIABLES 
YOU MAY USE THOUSANDS OF OTHER 
VARIABLES ARRANGED IN ARRAYS, 


[SSELOW IS AN EXAMPLE OF A OWE-D/MENSIONAL NUMERICAL ARRAY 
CALLED A()o 


A(i){ 3.56 | A() HAS ELEMENTS, EACH OF WHICH CAN STORE 
A(2)| 7.12 _| A NUMBER IN THE SAME WAY AS ANY S/MALE 
A(3) NUMERICAL VARIABLE 8 


AL 100 LET A(t) = 256 
110 LET A(2) = 7-12 


120 LET AC3)= Ai) + A(2) 


ANOTHER NAME FOR ELEMENT \S S/NGLY-SUBSCRIPTED VARIABLE 
(( OR JUST SUBSCRIPTED VAR/ABLE \F THE CONTEXT ALLOWS 2), 


OTHER NAMES FOR A ONE-DIMENSIONAL ARRAY ARES VECTOR , 
COLUMN VECTOR, & COLUMN MATRIX 4 YOU CAN ALSO THINK OF 
A() AS A ROWS A(i) _ A(2)_——A(3) A) 

| 3-56 [ 7-12 Jio.es J 


AND CALL IT A ROW VECTOR OR KOW MATRIX 


BeLow IS AN EXAMPLE OF A 7WO-D/MENS/ONAL NUMERICAL 
ARRAY CALLED B(,). IT HAS 4ROWS AND 3 COLUMNS © 


») 2) 3) 


JUST AS WITH AC),  B(,) HAS 
ELEMENTS EACH OF WHICH CAN 
STORE A NUMBER IN THE SAME 
WAY AS A SIMPLE NUMERICAL 
VARIABLE 2 


130 LET B(i,1) = 8-92 
140 LET B(2,2)= 2* BC, 4) 


{50 LET B(2,3) = -B(i,1) 


ANOTHER NAME FOR AN ELEMENT OF A 7WO-DIMENSIONAL ARRAY 
IS DOUBLY-SUBSCR/PTED VARIABLE ( OR JUST SUBSCR/PTED 
VARIABLE WHEN THE CONTEXT ALLOWS > q 


©) rner NAMES FOR A TWO-DIMENSIONAL ARRAY ARE RECTANGULAR 
ARRAY AND RECTANGULAR MATRIX 4 © IF THE NUMBER OF ROWS 
Is THE SAME AS THE NUMBER OF COLUMNS THEN SQUARE 
MAY BE SAID IN PLACE OF RECTANGULAR 2D 


A FEW GAS/CS ALLOW 7HREE- DIMENSIONAL ARRAYS o 
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Bye IS AN EXAMPLE OF A TEXTUAL ARRAY CALLED T$(). IT 
IS ONE-DIMENSIONAL © SEVERAL BAS/CS DON*T ALLOW TWO- 
DIMENSIONAL TEXTUAL ARRAYS SO FOR THE SAKE OF “PORTABILITY” 
IT 1S BEST TO DO WITHOUT THEM 2 o 


T$1) [Ho T$() HAS ELEMENTS EACH OF WHICH 
T$(3) (AND USUALLY TO THE SAME LENGTH) 
T$(5) [KEGRAPHA 


160 LET TS(1)="HO" 


{70 LET TS$(@)="KEGRAPHA" 
180 LET 1T$(5)=T$(3) 


Your PROGRAM MAY HAVE UP TO 26 NUMERICAL ARRAYS 8 


OF WHICH SOME MAY BE ONE-DIMENSIONAL AND SOME 7WO = 
DIMENSIONAL 2 ONE LETTER CAN®T BE MADE TO SERVE FOR 
BOTH KINDS AT ONCE o 


YOUR PROGRAM MAYy ALSO HAVE UP TO 26 TEXTUAL ARRAYS 8 
A$(), Bé(), C$), .--, Z$( ) 


AND YOUR PROGRAM MAY USE ALL 286 SIMPLE NUMERICAL 
VARIABLES AND ALL 26 SIMPLE TEXTUAL VARIABLES 
WHICH ARE COMPLETELY DISTINCT FROM ELEMENTS OF 
ARRAYS3 3B(2,2) HAS NOTHING TO DO WITH B 3° T4(5) 
HAS NOTHING TO DO WITH T$ o 


PECIFy THE SIZES AND SHAPES OF THE ARRAYS YOU WANT 
TO USE BY THE “DIM? STATEMENT ( SHORT FOR D/MENS/ION 2 
AS EXPLAINED OVERLEAFa THE ARRAYS ON THIS DOUBLE 
PAGE WOULD BE SPECIFIED LIKE THIS2 


10 REM A PROGRAM WITH ARRAYS 


20 DIM A(4), B(4,3) , T$(5) 
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gem DIM 15 SHORT FOR DIMENSION co 
USE THIS STATEMENT TO SPECIFY THE 
DIMENSIONS OF ALL ARRAYS IN YOUR PROGRAM, 


THE FOLLOWING SELECTION OF ARRAYS 3 


A$(1) AQT] 1) 2) 3) 
A$ (2) B(1, 
A$(3) c(t) C(2)_— Ba, 
A$(4) es De ye 


MAY BE SPECIFIED IN ONE “DIM”? STATEMENTS 


10 REM PROGRAM WITH ONE DIM 
20 DIM AS$(4), A(t), C(2), BG.) 


OR IN MORE THAN ONE “DIM” STATEMENT 2 


10 REM PROGRAM WITH SEVERAL DIMS 
20 DIM C(2), A(1) INTEGERS ONLY! 


30 =«2ODIM (3,3) KA EXPRE SS/ONS 


Nor ALLOWED 


40 DIM A$(4) 


MANY BAS/CS ALLOW YOU TO OM/7T “DIM” STATEMENTS WHEN 
DIMENSIONS ARE 10 OR LESS g BUT DON?T TAKE ADVANTAGE 
OF THIS, IF YOU GO BACK TO A PROGRAM WRITTEN LONG 
AGO £H% OR HAVE TO SORT OUT SOMEONE ELSE®S PROGRAM a 
IT (S HELPFUL TO KNOW STRAIGHT AWAY WHAT ARRAYS ARE 
BEING USEDa IN ANY CASE THERE ARE SOME BAS/CS THAT 
DEMAND DECLARATION OF ALL ARRAYS HOWEVER SMALL, 


f\u “DIM”? STATEMENTS SHOULD BE NEAR THE BEGINNING 
OF THE PROGRAM gy BEFORE THE FIRST USE OF ANY 
SUBSCRIPTED VARIABLES AFFECTED @% AND YOU SHOULD ENSURE. 
THAT “DIM” STATEMENTS ({ LIKE “DEF” STATEMENTS ON 
PAGE 26) ARE ACTUALLY ENCOUNTERED DURING EXECUTION, 


10 GOTO 307°T— y 
20 DIM A(40,40), B Ti086) 
IN MANY BAS/CS THESE THINGS DON*T MATTER BUT IN SOME 


THEY DO sw SO FOR THE SAKE OF “PORTABILITY” ACCEPT SUCH 
LITTLE RESTRICTIONS, 


50 LET P(1)=4°5 


60 DIM P(46) 


{Oo DIM A(100,20), B(60) 
T 1S ALWAYS A MISTAKE TO DECLARE 20 DIM N yf B60) C(500) 


AN ARRAY MORE THAN ONCE o 


62 


[a disroricauy THE ROWS de COLUMNS OF ARRAYS IN BAS/C 
WERE COUNTED FROM ZERO RATHER THAN UNITY, 


0) 1) 2) 3) 
P(O, Q (0) 
P(4, Q(1) 
P(2, Q(2) 


AND THE “DIM” STATEMENT REFERRED TO 8/GGEST SUBSCR/PTS 
RATHER THAN QUANTITIES OF ROWS AND COLUMNS & 


{O REM HISTORICAL BASIC 


20 DIM P(2,3), Q(2) 


BUT THERE ARE VERSIONS OF BAS/C TODAY THAT COUNT FROM 
UNITY (AS IN THE ILLUSTRATIONS OPPOSITE } SO IT IS SAFEST TO 
IMAGINE YOUR VERSION COUNTS FROM 1. IF y IN FACT, IT COUNTS 
FROM ZERO IT MEANS YOU ARE WASTING SOME SPACE IN THE 
COMPUTER®S STORE BUT AT LEAST YOUR PROGRAM SHOULD BE 
“ PORTABLE”, 


SOME BAS/CS CATER FOR BOTH METHODS WITH THE STATEMENT S$ 


oR? 


TO DECLARE WHETHER YOU WISH TO COUNT FROM ZERO OR UNITY 
RESPECTIVELY g 


hie “DIM” STATEMENT MAKES BAS/C RESERVE SPACE IN 
THE COMPUTER?S STORE FOR ALL YOUR ARRAYS , BUT THIS 
DOESN®T IMPLY THAT BAS/C CLEARS THEM OF INFORMATION 
LEFT OVER FROM A PREVIOUS COMPUTER RUN, SOME BAS/CS 
DO SET SUBSCRIPTED VARIABLES TO ZERO (@ BLANKS IN THE 
CASE OF TEXTS Dg OTHERS “*FLAG® THEM AS UNSET @ AS 
DISCUSSED FOR SIMPLE VARIABLES ON PAGE 119), AND 
OTHERS LEAVE THEM FULL OF “GARBAGE”. SO IF YOUR 


EXPECTING TO FIND ZERO WHEN NOTHING HAS YET BEEN PUT 
THERE , MAKE SURE YOUR PROGRAM CLEARS THE ARRAY FIRST «4 
THE SIMPLEST WAY TO DO THIS IS EXPLAINED ON PAGE 86 WHICH 


WE ANTICIPATE WITH THIS EXAMPLE $ S SETS ALL ELEMENTS 
70 MAT B=ZER # To geno 
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THE FOLLOWING ARRAY $ 


{0 DIM B(4,3) 


IS AN ARRAY OF [2 SUBSCRIPTED VARIABLES EACH OF WHICH CAN 
BE USED AS THOUGH IT WERE A S/MPLE NUMERICAL VARIABLE 2 


Ve 

EXAMPLES 

OF SYNTAX$ 
THE CONTENT 


Wa /s MEANINGLESS ) 


100 LET B(i1,2)=B(2,2)42 +6.8 
110 LET 8(3,3) = FNC( B(1,1)/B(2,2)) 
120 PRINT B(1,2)3 B(3,;3) 

130 FOR I = B(i,1) TO B(1,2) STEP B(4,3) 
140 IF B(3,3)>= B(2,3) THEN 600 


THIS APPLIES TO TEXTUAL VARIABLES TOO 8 


150 LET T$(6) = “PONZIO" 


160 IF 14(7)<>"PILATO" THEN 200 
170 PRINT T$(6); T$(7) 


IN ANY EXPRESSION WHERE A S/MPLE VARIABLE IS ALLOWED A 
SUBSCRIPTED VARIABLE [S ALSO ALLOWED, 


BUT THERE ARE PLACES OUTSIDE EXPRESSIONS WHERE YOU CANT 
HAVE A SUBSCRIPTED VARIABLE 2 


NO7 AS A LOOPING 
VARIABLE 3 


180 FOR B(i,41) = 1 To 3 


NOT AS THE 
DUMMY ARGUMENT 
OF A FUNCTION , 


THE REAL ADVANTAGE OF SUBSCRIPTED VARIABLES, HOWEVER, 


SSS eee 
> SyBscrigls May BE ~ 
S & wARinBeks + EXPRESSIONS 3 


x AAT NN SS >. 
gor" L- “TEEN COMPLICATED EXPRESSIONS) Ly 
THEMSELVES CONTAINING SUBSCRIPTED VARIABLES o 


190 DEF FNC( B(i,t) ) = SQR(At2 + B#2) 
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ony DATA "A" BT "oo" “D" 
M > b 
HUS IT IS SIMPLE To READ ee FOR L=1TOA 


A ROW OR COLUMN VECTOR? Si 


220 READ T$(I) 
NEXT I 


240 FOR R=17TO0 4 
(260 FOR C =1 TO 3 


<530R CLEAR A RECTANGULAR 
ARRAY 2 


260 LET B(R,C)=0 
270 NEXT C 
280 NEXT R 


290 FOR T=1104 
300 PRINT TS(1)3 
310 NEXT I 
320 PRINT 


OR PRINT A VECTOR 
(IN THIS CASE AS A ROW D 3 Ve 


330 FOR R=1i1TO 4 r“OR PRINT A RECTANGULAR 


340 FOR C=1T0 4 ARRAY 
(350 PRINT B(R»C)3 (IN THIS CASE By Rows D 3 
360 NEXT C 

370 PRINT 

380 NEXT R 


390 FOR T=1T04 


OR SCAN A LIST OF ITEMS (400 IF T$(I) = “C" THEN 430 


TO FIND THE LOCATION OF A 
410 NEXT I 
Cc @ 
PARTICULAR ITEM LET 20 


<= u a, 
[3ur Ns3 =. PRINT “LOCATION IS"s I 
: OF USING. | 


COMPLICATED EXPRESSIONS @ 


SLE , AS SUBSCRIPTS ® pS 
ice x ° 440 LET X=B(At2/2,3) 


WHAT WOULD HAPPEN IF A#2/2 TURNED OUT TO BE 3.99999 reg 


Be SOME BAS/CS WOULD TAKE THE /N7EGRAL PART 
OF THE RESULT AND LET X=B(3,3) 


Me OTHER BAS/CS WOULD TAKE THE NEAREST /NTEGER 
TO THE RESULT AND LET X= B(4,3) 


YOU CAN EASILY TEST WHAT YOUR OWN VERSION OF BAS/C DOES BY 
RUNNING THE LITTLE PROGRAM BELOW 5 BUT YOU SHOULD NoT 
WRITE PROGRAMS THAT RELY 
ae Nay = 100 ON ONE PARTICULAR 
LET A(2) = 200 INTERPRETATION eo KEEP 
SUBSCRIPTS SIMPLE AND 
USE“ INT( )"IF THEIR VALUES 
COULD HAVE FRACTIONAL 


LET I= 1-99 
PRINT A(T) 


END PARTS e 
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: AN EXAMPLE TO 
ILLUSTRATE 
SUBSCRIPTED VARIABLES 


SORTING NUMBERS JNTO ASCENDING ORDER IS SIMPLE IN CONCEPT 
BUT SURPRISINGLY DIFFICULT TO ORGANISE WHEN THERE ARE 
LARGE VOLUMES OF DATA, THE EXAMPLE BELOW USES THE 
SIMPLEST TECHNIQUE OF ALL S@ THE R/PPLE SORT &@ WHICH IS 
ADEQUATE FOR SMALL YOLUMES OF DATA ({ 100 OR SO NUMBERS) 
STORED AS ARRAYS IN BAS/C a 


A) | 65 | ARRAY AC), A COLUMN VECTOR, IS TO 
A(2)[ 1399 _| BE SORTED INTO ASCENDING ORDER 
A(3)] 4-6 | tj HEAVIEST NUMBERS SINKING TO 
A(4){ 10-2 | THE BOTTOM, YOU CAN REVERSE THIS 
A(5)[ 3.5 | ORDER BY REYERSING THE CONDITION 


IN THE “IF”? STATEMENT o> 


WE START WITH AN “INDEX” I POINTING TO ROW 15 THEN WE 
ADVANCE [ ROW BY ROW, AT EVERY ADVANCE WE LOOK AT 
THE NUMBER I 1S POINTING TO s@ AND ALSO AT THE NUMBER 
ONE ROW AHEAD OF I, IF THE FORMER !S GREATER THAN 
THE LATTER WE SWOP THE TWO NUMBERS. 


HAVING FINISHED ONE “SWEEP” OF I WE SWEEP AGAIN «& BUT 
STOP ONE ROW SHORT OF THE PREVIOUS SWEEP BECAUSE THE 
HEAVIEST NUMBER MUST ALREADY HAVE SUNK TO THE BOTTOM, 


WE CONTINUE SWEEPING gm EACH SWEEP A ROW SHORTER THAN 
THE PREVIOUS ONE UNTIL THERE !18 A WHOLE SWEEP 
WITHOUT A SINGLE SWOP IN IT OR THE LENGTH OF SWEEP IS 
REDUCED TO NOTHING, 


HERE |S THE WHOLE PROCESS3S % SHOWS WHERE A SWOP HAS JUST 


OCCURRED 2 
acta) ta] athe 
ee 


AD—»\ 6-5 
TACL# > cm 
~~ 
—s z A(I+1 A(I aca 
3.8 7] A(L+))>] 73-9 | 
SECOND See Bi 
Ate 10- ac 
ee ae Hap Sse =z=m 
53] aces ea 


(RD A(I+[_ 4-6 | 
EX > ded Ee Fay A(t» 


A(i+t)}> 


(r)> 3-3 
2d SR EE 2 
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A(I-> 


ie PROGRAM BELOW IS DESIGNED TO SORT A COLUMN VECTOR, A(), 
HAVING N ROWS, THE VECTOR IS FILLED FROM “DATA” STATEMENTS 
s®@ THE FIRST NUMBER IN THE FIRST “DATA” STATEMENT TELLING THE 
NUMBER OF NUMBERS TO BE SORTED. THE LOGIC ILLUSTRATED HERE 
IS USED AGAIN IN A MORE USEFUL WAY ON PAGE 71 WHERE WE 
AVOID ACTUALLY HAVING TO MOVE THE NUMBERS BEING SORTED, 


10 REM RIPPLE SORT; MAX 100 NUMBERS 

20 DIM A(100) 

30 DATA 5 

4O DATA 6.5, 13.9, 4-6, 10.2, 3.5 

50 REM CONTINUE DATA STATEMENTS AS RGD. 


60 REM NUMBER OF 
1000 READ N FC, NUMBERS 


FOR I= iTON 
NEXT I 
REM 


REM 
FOR S={1 TO N-t wt sueer} 


LET M0 (MOEX IN 

FoR I#{ TO N-S <r GACH § WEEP 
A(t) <= A(r#1) THEN {T40 
X= A(Z) DONT 
A(t) = A(I+1) SwoP 
A(r+1) = X 
M={ 
I 


M= 0 THEN 2000 CBer 
S ——- 


T= { JO N 
PRINT A(1) 
NEXT I 
END 


VARIABLE M IS A “MARK” SET ZERO BEFORE EACH SWEEP BUT 
SET NON-ZERO EVERY TIME THERE |S A SWOP, M IS 
TESTED AT THE END OF EACH SWEEP AND (IF IT SHOWS THERE. 
WERE NO SWOPS THEN CONTROL JUMPS TO AN EARLY EXIT, 


Wits TECHNIQUE «% AND OTHERS USED IN THE LONGER EXAMPLES IN 


THIS BOOK <@ ARE EXPLAINED VERY CLEARLY BY A. COLIN DAY IN 
“FORTRAN TECHNIQUES” 3 CAMBRIDGE UNIVERSITY PRESS (1972). 
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CHA/NS itLusTRATE THE USEFULNESS OF SUBSCRIPTS. THE 
MANIPULATION OF CHAINS IS CALLED L/ST PROCESSING « 


a ie SIMPLEST KIND OF CHAIN IS {LLUSTRATED BELOW, IT HAS 
A HEAD IN THE FORM OF A SIMPLE VARIABLE, H. THIS STORES 
A POINTER POINTING TO THE FIRST ROW OF INFORMATION SOMEWHERE IN 
ARRAY A(,) «# POINTING ALSO TO A LINK CONTAINING ANOTHER 
POINTER POINTING TO THE NEXT ROW OF INFORMATION IN A(,)o 


THE LAST LINK IN THE CHAIN CONTAINS A ZERO SAYING “ END 
OF CHAIN” 
° {) 2 3) 


THE FOLLOWING PIECE OF PROGRAM WOULD PRINT INFORMATION IN A(,) 
ORGANISED By THE CHAIN WITH HEAD H « HOWEVER LONG THE CHAIN, 


155 LET R=#H 

160 LF R=0 THEN 180 

165 PRINT A(R, 14)3 A(R,2)3 A(R,3) 
170 LET R= L(R) «=z 

175 GOTO 160 AFD 


180 END 


RUN 


4-7 0 246 
20 O 468 
16.2 0 821 
33. O 900 


Wu CLEAREST WAY TO DRAW A CHAIN [5 TO HOLD THE HEAD 
IN ONE HAND, THE LAST LINK (N THE OTHER g AND PULL TIGHT, 
THE CHAIN ILLUSTRATED ABOVE NOW LOOKS LIKE THIS 3 


H [2 —}eLi2) S13) 4 etm) [)e +160 | 


WE USE THIS MODEL TO EXPLAIN SOME OPERATIONS ON CHAINSoa 
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i\ NEW ROW OF A(,) MAY BE LINKED INTO THE CHAIN LIKE THIS 


uf 2 COPY THE CONTENTS OF THE HEAD 
INTO THE NEW LINK 3 


L(S)\, 2 | 


EXAMPLE 8 
NEW ROWS 


COPY THE NEW LINK®S SUBSCRIPT 
INTO THE HEAD @ THUS MAKING THE 


L(5 HEAD POINT TO THE NEW LINK) o 
RESULT2 


H | 5s] L(2._ 3 —}-L@ (4 -> L@[e ©] 
Leo 


ne FOLLOWING SUBROUTINE LINKS ROW N INTO A CHAIN 
STORED IN VECTOR L() AND HEAD IN VARIABLE H 23 


REM LINK ROW N TO CHAIN L() HEAD H 
LET L(N) =H 


LET H=N 
RETURN 


SO LINKING ROW 5 TO THE CHAIN (PICTURED ABOVE D CAN BE 
DONE VERY SIMPLY LIKE THIS 3 


1055 LET N=5 


1060 GO SUB 100 
{065 


AND CREATING A NEW CHAIN TO LINK 5 SAY, THE FIRST 10 
ROWS LIKE THIS 3 


Ap BEGIN WITH 
2125 LET H=0 EMPTY CHAIN 
2130 FOR N ={1 TO 10 


2135 GO SUB 100 
NEXT N 


OTICE THE LAST ROW TO BE LINKED TO A CHAIN IN THIS WAY 
IS THE F/RST TO BE PRINTED BY THE ROUTINE OPPOSITE , 
THUS THE MECHANISM MAY BE USED TO ORGANIZE A STACK 
OF THE KIND DESCRIBED ON PAGE 54 4 TAKING AN ELEMENT 
FROM THE TOP OF THE STACK MAY BE DONE LIKE THIS § 


REMEMBER THE 
ty ROW OF THE ELEMENT, 


4_—b DISCARD TOP LINK 


3260 LET RZ=H 
3265 LET H=L(H) 
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LING (cauncap) 


[\r MAKES FOR TIDIER PROGRAMS TO STORE HEADS OF CHAINS 
IN THE SAME VECTOR AS THE LINKS, THIS WASTES A FEW 
STORAGE LOCATIONS @ AS SHOWN BELOW }) BLT YOU MAY REGAIN 
THE SPACE BY OFFSETTING THE CHAIN FROM ITS INFORMATION AT 
THE EXPENSE OF MORE COMPLICATED SUBSCRIPTS IF YOU WISH o 


pA THAN ONE CHAIN CAN EXIST IN TRE SAME VECTOR AS LONG 
AS THE ROWS BEING LINKED ARE MUTUALLY EXCLUSIVE (te. NO 
LINK CAN BE IN MORE THAN ONE CHAIN Da THE SUBROUTINE 
BELOW LINKS WOMEN INTO ONE CHAIN AND MEN _ INTO 
ANOTHER, THE HEADS OF BOTH CHAINS ARE AT THE TOP 
OF THE VECTOR STORING BOTH CHAINS.» 


CUTHBERT 
qa we 


LINK INTERTWINED CHAINS; N PEOPLE 
1010 LET U(1)20 

1020 LET L(2)=0 

1030 FOR 123 TO Nt+2 

1040 LET Q=1 

1050 IF S$(L)= “FEMALE” THEN 1070 
1060 LET Q=2 

1070 LET L(r) =L(Q) 
1080 LET L(Q@)=1 
NEXT I 
RETURN 


RIGOROUSLY 
CHECKED! 
ANYONE NOT 
DECLARED 
FEMALE /S 
TREATED AS 
MALE 


lw THE SORTING PROGRAM ON PAGE 66 WE EXCHANGED ITEMS OF 
DATA so WITH CHAINED LISTS 9 HOWEVER, IT IS ONLY NECESSARY 
TO EXCHANGE Z/NKS WHEN SORTING o CONSIDER THIS SHORT 
LENGTH OF CHAIN 8 


—~1(8) | 7 + +17) [3 4 LG) [5 + L 5) LS 
TO EFFECT/VELY SWOP ROWS 7&3 OF THE ARRAY ASSOCIATED WITH 
THIS CHAIN YOU NEED ONLY SHUNT THREE POINTERS AROUND 
THE LINKS AS ILLUSTRATED OPPOSITE o 
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—cL(s)[7 —+—-L(7) (3 —1+—+1() [5 —++- Loe 


Previous Current Follow/ng 
MOVE 
Ponrers>-U(8)] 3 Li Cs L(3) [7 5) % 


PULL _» (8) 3 —}— L(3) (L7 —} 1 ) (5 4 9 


T/GHT 


Une SUBROUTINE BELOW USES THE SAME LOGIC AS THE PROGRAM 
ON PAGE ©7 Sw THE R/PPLE SORT eA BUT WHENEVER IT HAS TO 
SWOP ROWS JT MOVES POINTERS IN THE MANNER ILLUSTRATED ABOVE a 
THE LOGIC FOR THIS IS ON LINES 2100 TO 2130 , WHERE 32 


P iS A SUBSCRIPT FOR THE PREV/OUS LINK , 
C IS A SUBSCRIPT FOR THE CURRENT LINK, 
F iS A SUBSCRIPT FOR THE FOLLOWING LINK, 


ALL AS SHOWN JN THE PICTURE ABOVE, AFTER A SWOP, C 1S NO 
LONGER THE CURRENT SUBSCRIPT $ IT IS ALTERED AT LINE 2{40 @ 


2000 REM RIPPLE SORT. CHAIN L( )$ HEAD L(Z)3 
2005 REM NUMBER OF ROWS N(Z); COLUMN K OF A(,)6 
2010 FOR S=1 TO N(z)-1 


2020 LET M=0 HEAD OF CHAIN 
2030 LET C#Z PULLEY 


C 
2040 FOR I={1 TO N(Z)- 
2050 LET P=c 
2060 LET C#=L(C) = 
2070 LET Fez L(t)< 
2080 IF A(C,K) <= ACF,K) THEN 2150 


2090 LET Maz] 
2100 LET X= L(P) 
2110 LET L(P)=L(C) 
2120 LET L(C)=L(F) 
2130 LET LCF)=X : 
2140 LET CHF 

2150 NEXT I 


2160 IF M= 0 THEN 2180 
2170 NEXT S 
2180 RETURN 


rier DIFFERENCES FROM THE PROGRAM ON PAGE 67 ARE NOT CONCERNED 
WITH THE LOGIC OF SORTINGs THE ROUTINE ABOYE CAN USE AVY CHAIN 
STORED IN L() BEING TOLD A VALUE OF Z 3 THE HEAD OF THE 
REQUIRED CHAIN {S THEN L(Z) AND THE NUMBER OF ITEMS IS IN N(Z)o 
FURTHERMORE THE ROUTINE ABOVE CAN SORT AVY COLUMN OF ARRAY 
A(,) BEING TOLD THE NUMBER OF THAT COLUMN IN Ka 


SORT ON 
THE KTR 
COLUMN 
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AN EXAMPLE 
USING THE SIMPLE LIST 
PROCESSING TECHNIQUES 
JUST DESCRIBED o 


Ue TYPICAL “MANAGEMENT REPORTING ® PROGRAM DEALS WITH 
“POPULATIONS BROKEN DOWN BY AGE, RELIGION AND SEX ”. THE 
FOLLOWING PROGRAM IS A GHASTLY PARODY OF THE REAL THING 
BUT SERVES TO ILLUSTRATE A FEW OF THE TECHNIQUES AT THE 
HEART OF BUSINESS DATA PROCESSING o« THE PROGRAM SORTS 
DIFFERENT COLUMNS OF NUMBERS. JT 1S LEFT AS AN EXERCISE FOR 
THE READER TO EXTEND THE PROGRAM To SORT NAMES 
ALPHABETICALLY (@SEE PAGE 41 ON THIS) o 


Pus PROGRAM CALLS THE TWO SUBROUTINES GIVEN ON THE 
PREVIOUS DOUBLE PAGE, TO USE THE PROGRAM YOU TYPE THE 
NAME , SEX, DEPARTMENT NUMBER, AGE & SALARY OF EACH 
MEMBER OF STAFF OF A DEPARTMENT STORE. THE PROGRAM 
THEN PRINTS THREE MANAGEMENT REPORTS EACH OF WHICH DEALS 
SEPARATELY WITH THE SEXES. THE FIRST REPORT TABULATES THE 
INPUT DATA ORDERED BY DEPARTMENT NUMBER 5 THE SECOND 
ORDERED BY AGE OF EMPLOYEE, THE THIRD BY SALARY. IN ALL 
THREE REPORTS THE “ORDERING % COLUMN JIS KEPT NEXT TO THE 
COLUMN OF NAMES, 


IAN IMPORTANT THING TO NOTICE ABOUT THIS PROGRAM (S THAT THE 
ORIGINAL |[NPUT DATA ARE NEYER MOVED. ORGANIZATION 1S 
BY SHUNTING POINTERS ABOUT IN A SINGLE LIST OF POINTERS o 


{O PRINT "DEPARTMENT STORE: STAFF ANALYSIS" 
20 DIM N(2), L$(100) , NS(100), M$(100) , $$(100) ,A(100,3), 7$(2) , RS(3) 
30 DATA "FEMALE", "MALE", “DEPARTMENT’, "AGE", “SALARY” 

40 READ TS(t),  TS(2), R$(1), R$(2), RB (3) 

50 DEF  FNC(Y)=Y-3*INT(¥/4) 

60 REM FNC CYCLES 1,2,3,1,2 AS Y GOES 1 T0 5 

Sr enna Sy 

90 PRINT "FIRSTNAME,LASTNAME, SEX,  DEPT., AGE, SALARY" 
100 LET N(2)=0 

110 FOR L=3 TO Nt2 

{20 INPUT N$(I), Mr), S#(X), A(T,1), A(I,2), A(Z,3) 


{30 IF S$(L) = T$(1) THEN {50 

{40 LET N(2)=N(2)+! 
{50 NEXT I MEN 
160 LET N(i)= N—N(2) Sse OF 

170 REM INPUT COMPLETE WOMEN 


gg nN , 
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$80 REM BEGIN ANALYSIS CREATE TWO 

<I CHAINS; FEMALE 
190 GO SUB 1000 & MALE CYCLE 3 COLUMNS 
200 FOR K=i TO 3 —4 OF A(,) TO GIVE 
210 PRINT Rurlenifa 


220 PRINT "REPORT"; K; "ORDERED BY “s R$(k) 


230 PRINT 

- CYCLE WOMEN 
240 FOR Z2= 4 TO 2 gy GEES SORT ON coLuMma 
250 GO SUB 2000 SN OK OOF erase 


260 =PRINT 

270 PRINT 1T$(Z); “ ae 
260 PRINT "NAME" , , R$(K), R$( FNC(K+L) ), RSC FNC(K+2) ) 

290 ~=LET Rel(z) ha 

300 IF R=0 THEN 340 7 

310 PRINT N&(R), M$(R), ACRSK), A(R, FNC(K+)), ACR, FNC(K+2) ) 
320 LEF R=LC(R) aefnert Line) 

330 GO TO 300 

340 NEXT Z 

350 NEAT K DON’T FALL THROUGH 

360 GO TO 9999 SUBROUTINES 


INSERT SUBROUTINES 1000 & 2000 HERE 
9999 END . 


RUN 


DEPARTMENT STORE: STAFF ANALYSTS 

HOW MANY STAFF 

? 6 

FIRSTNAME,LASTNAME, SEX, DEPT-, AGE, SALARY 
2? ROSE STAGG FEMALE 6 21 2800 
? ALGERNON SWEET MALE 23 3750 

2? CLARENCE PETTY MALE 7 22 3750 
? VIOLET BUCK FEMALE ) 

2? CECIL WILTING MALE 


? CUTHBERT MACQUEEN MALE 
THIS BECOMES THE 
REPORT 1 ORDERED BY DEPARTMENT FIRST COLUMN HEADING 


FEMALE STAFF 


NAME DEPARTMENT AGE SAL ARY 
VIOLET BUCK 6 66 2.000 
ROSE STAGG 6 21 2800 
MALE STAFF 

NAME. DEPARTMENT AGE SALARY 
CUTHBERT MACQUEEN 70 6000 


ALGERNON SWEET 23 3750 
CECIL WILTING {8 4000 
CLARENCE PETTY 22 3750 


REPORT 2 ORDERED BY £ 
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MATRICES 


‘Sm DON’T RUN AWAY & SD 
YOU DON’T HAVE TO KNOW 
MATRIX ALGEBRA TO FIND 
“MAT”? STATEMENTS USEFUL o 


IN BAS/C A MATRIX 15 SIMPLY A RECTANGULAR ARRAY OF SUBSCRIPTED 
VARIABLES 3 oT 


10 DIM A(4,4), BC4,1), C(1, 4), D(2,3), E(1,1) 


1) 2) 3) 4) 1) 1) 2) 3) #4 
A(1, B(1, c(l, 
A(2, B(2, ROW MATRIX 
AG, B (3, 1) 2) 3) {) 
Ald, .B(4, 7 E(14,. | 
SQUARE MATRIX column V2, THIS £5 A 
MATRIX RECTANGULAR MATRIX MATRIX 


AND THERE ARE ABOUT 12 “MAT”? STATEMENTS IN MOST BAS/CS WITH 
WHICH YOU CAN MAW/PULATE SUCH ARRAYS » 


BUT WATCH OUT FOR THE FOLLOWING $ 


Sone BASICS ALLOW “MAT” STATEMENTS TO BE USED ON 
ONE-DIMENSIONAL ARRAYS BUT OTHERS DON®’Te SO ALWAYS 
MAKE 7WO-DIMENSIONAL ARRAYS WHEN YOU INTEND TO USE 
“SMAT”? STATEMENTS saw EVEN WHEN ONE OF THE DIMENSIONS 
Is UNITY ( AS IN BO,),C(,) & EC ,) ABOVE Do 


Jour OMIT “DIM? STATEMENTS FOR ARRAYS EVEN THOUGH 
MOST BAS/CS ALLOW SUCH OMISSION WHEN DIMENSIONS 


ARE 10 OR LESS SEE PAGE 62). 


SSome BASICS ALLOW SUBSCRIPTS OF ZERO 4 BUT 
IN SPITE_OF JHIS THEIR “MAT” STATEMENTS 


HE zerot? pow & ZEROt 
COLUMN (THUS SUPPORTING THE EXHORTATION ON 
PAGE oe NEVER TO USE ZERO SUBSCRIPTS Do | 4 RT MOO 
JUST IN CASE YOUR VERSION DOES ALLOW ZERO} © +. 
SUBSCRIPTS «» AND YOU CAN®T BE CERTAIN 5 Goool) 
FROM ITS USER’S MANUAL WHETHER “MAT”? 

STATEMENTS FOLLOW SUIT 4» RUN THIS LITTLE PROGRAM, 

IF {T SHOULD PRINT £ RATHER THAN O THEN PROBABLY ALL YOUR 
“MAT? STATEMENTS TAKE ACCOUNT OF THE ZERO*P Row & 
COLUMN @* AN UNUSUAL BAS/C SYSTEM >} 


{0 DIM A(1,1) 
20 LET A(0,0)=0 
30 MAT A= CON 


+ matrix, ma’trcks ,or matt&és, m.(math.) a rectangular array of 
quantities or symbols: pf ma/trices (-ér2s-éz, or 2z) [L matréx,tis, 
a breeding animal, Jater, the womb - mater, mother] 
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Le \arer INSTRUCTIONS BEGIN WITH THE WORD **MAT’? , TWELVE OF 
THEM ARE LISTED BELOW AND DESCRIBED ON SUCCEEDING PAGES. 
TERMS LIKE “TRANSPOSITION, “MATRIX MULTIPLICATION”, AND 
“(NVERSION™ ARE EXPLAINED SO THAT THOSE WHO HAVE NEVER 
MET MATRIX ALGEBRA MAY UNDERSTAND AND USE THE 


ASSOCIATED INSTRUCTIONS o PAGE 
MAT A=B FOR MAKING ARRAY A(,) THE SAME AS B(,)5 78 
MAT A=BEC FOR MAKING ELEMENTS OF ARRAY A(,) THE 80 
sf sf SUM OR DIFFERENCE OF CORRESPONDING 

AMY LETTERS IN ALL 
ELEMENTS OF B(,) AND C(,)o 

OT JUST A» BS 
MAT A=(N)*B FOR MAKING ELEMENTS OF ARRAY A(,) “N” 82 


TIMES CORRESPONDING ELEMENTS OF BC.) 
WHERE “NN JS A NUMBER & NOT A MATRIX, 


MAT A= TRN(B) FOR MAKING THE ROWS OF ARRAY A(,) THE 84 
SAME AS THE COLU/INS OF ARRAY B(4)o 


MAT A= ZER FOR MAKING ALL ELEMENTS OF ARRAY AZ) ZERO, 86 
MAT A= CON FOR MAKING ALL ELEMENTS OF ARRAY A(,) UNITY, 87 
MAT A= IDN FOR MAKING SQUARE ARRAY A(,) INTO AN 87 


IDENTITY MATRIX mm 1°S ON THE DIAGONAL 
AND O75 OFF THE DIAGONAL.» 


MAT R=A¥*B FOR MAKING ARRAY R(,) THE MATRIX 8B 
PRODUCT OF A(C,) AND B(,) BY MATRIX 
MULTIPLICATION o 


MAT A=INV(B) FOR MAKING ARRAY A(,) THE INVERSE OF 92 
THE MATRIX IN SQUARE ARRAY B(,)o0 


MAT READ A,B,C FOR READING COMPLETE ARRAYS FROM SA 
“DATA” STATEMENTS oa 


MAT INPUT A,B,C FOR DEMANDING COMPLETE ARRAYS FROM A 96 
SOURCE OUTSIDE THE PROGRAM o 


MAT PRINT A,B,C FOR PRINTING COMPLETE ARRAYS eo 96 


Fe EVERY “MAT” INSTRUCTION THIS BOOK GIVES A CORRESPONDING ROUTINE 
IN ELEMENTARY BAS/VC USING NESTED LOOPS. IN ANY NEST OF LOOPS 
THE VARIABLE CONTROLLING THE INNERMOST LOOP VARIES FASTEST o 
IF BAS/C STORES ARRAYS BY COLUMNS THEN IT 1S MOST EFFICIENT 
TO MAKE THE ROW SUBSCRIPT VARY FASTEST 3 CONVERSELY IF BAS/C 
STORES ARRAYS BY ROWS THEN IT IS BETTER TO MAKE THE 
COLUMN SUBSCRIPT VARY FASTESTo IT HAPPENS THAT SOME BAS/CS 
STORE ARRAYS BY COLUMNS 3 OTHERS BY ROWS3 SO DON®T LOOK FOR 
SIGNIFICANCE IN THE CHOICE OF ROW & COLUMN SUBSCRIPTS IN THIS BOOK, 


77 


THIS INSTRUCTION 
| Loma MAKES A COPY OF 
PART AC Abs Baar 
ARRAY o 


1 DIM A(3,4), B(3,4), C(2,3) | 


1) 2) 3) A) 
A(!, 
A(2, 
A(3, 


TO CONTAIN THE VALUES NOW 

CONTAINED JN ARRAY B(,), You 
CAN ACHIEVE THIS FAIRLY SIMPLY 
BY COPYING FROM B(,) TO A(,) ELEMENT BY ELEMENT LIKE THIS: 


UPPOSE YOU WANT ARRAY A(,) cy [oa6 | 198 | 137 
a 
( 


FOR C= { TO 4 gay CYCLE COLUMNS 
FOR R= 1 TO 3 tems 


LET A(R,C) = B(R,C) 
NEXT R 
NEXT C 


BUT you COULD DO THE WHOLE THING WITH A SINGLE “MAT ” 
INSTRUCTION LIKE THIS 2 


LOO MAT A=B 


NOTICE THAT A &B_ ON LINE 100 HAVE NOTHING WHATEVER TO po 
WITH SIMPLE VARIABLES A&B. THE WORD “MAT” TELLS BAS/C 
YOD MEAN ARRAYS A(,) & Bls) « 


Wirt THE ARRAYS PICTURED ABOVE !T WOULD BE A MISTAKE TO 
HAVE LINE {10 AS SHOWN BELOW 3 B(;) IS TOO BIG TO FIT INSIDE 
C(,). BUT LINE {20 /S ALLOWED. IT HAS THE EFFECT OF 
ALTERING THE DIMENSIONS OF B(,) TO 2 ROWS AND 3 COLUMNS 3 


{10 MAT Cc=B8 7% WHICH MAY BE 
120 MAT B=C ADJUSTED LATER 
BY OTHER “MAT” 
INSTRUCTIONS PROVIDED 


2) 3) THAT THEY NEVER 
B(1,[ 235 [es [37 [oo i EXCEED THOSE IN ITS 
B(2,[ 642 | ese [705 | ORIGINAL “ DIM” 
| cossscdeseecececdsoces scecde aeceeeeed STATEMENT o 
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THIS APPLIES To 
bd NEARLY ALL THE 
“MAT” INSTRUCTIONS. 
[\rrer LINE 120 OPPOSITE, ARRAY B(,) IS RKE-D/MENS/ONED TO BE 
THE SAME AS ARRAY C(,). JIT WOULD NOW BE WRONG TO HAVE 8 


130 LET B(2,4) = 13 2 


BECAUSE B(2,4) HAS CEASED To EXIST. IN SPITE OF THIS 
SOME BAS/CS WOULD FAIL TO REPORT AN ERROR AND WOULD DO 
SOMETHING WITH UNPREDICTABLE RESULTS < THE 13 APPEARING 
PHANTOM-LIKE IN SOME OTHER LOCATION gy 


+ IS STILL ALLOWABLE TO HAVE 
140 MAT Be=A 


EVEN THOUGH A(,) STILL HAS 3 ROWS & 4 COLUMNS WHEREAS B(,) 

CURRENTLY HAS ONLY 2 ROWS & 3 COLUMNS, A “MAT” INSTRUCTION 
(UNLIKE THE ORDINARY “LET” INSTRUCTION J) RE-DIMENSIONS B(,) 
GIVING IT CURRENT DIMENSIONS OF 3 ROWS & 4 COLUMNS ONCE AGAIN 5 


[n GENERAL BAS/C RE-DIMENSIONS AN ARRAY ON THE LEFT OF 
THE EQUALS SIGN ACCORDING TO CURRENT DIMENSIONS OF 
ARRAYS ON THE RIGHT AS LONG AS THE OR/G/NAL S/ZE GIVEN 
IN THE “DIM” STATEMENT /§ NOT EXCEEDED, ((THAT |S WHY 
LINE 110 OPPOSITE 1S WRONG BUT 140 ABOVE. !S CORRECTa )) 


SyHere IS HOWEVER, A COMPLICATIONS MOST BAS/CS SEEM TO 
INTERPRET “OR/G/NAL S/ZE” AS MEANING THE TOTAL NUMBER OF 
ELEMENTS IN THE ORIGINAL ARRAYS THUS IF P(1,16) APPEARED 
IN THE “DIM” STATEMENT 4 P(,) COULD BECOME , THROUGH 
RE-DIMENSIONING, A SQUARE ARRAY OF FOUR ROWS AND FOUR 
COLUMNS. THIS IS NOT NICE. IT IS BETTER AND SAFER To 
CONSIDER EACH DIMENSION AS AN INDIVIDUAL LIMIT OF RE-DIMENSION- 
“ING ga THUS P(1,16) IN THE ORIGINAL “DIM” STATEMENT MAY 
ATTAIN ANY NUMBER OF COLUMNS UP TO 16, BUT NEVER MORE 
THAN ONE ROW, IF YOU ALAN TO HAVE P(,) CHANGE FROM 
ONE ROW OF 16 ELEMENTS TO FOUR ROWS OF 4 ELEMENTS THEN 
YOU SHOULD DECLARE P(4,16) IN THE “DIM” STATEMENT o 
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AAT WAC: yas 


10 DIM A(3,2), B(3,2), C(3,2), D(2,3), E(3 3.2) | 


1) 2) 1) 2) 


Suppose YOU WANT EACH ELEMENT OF ARRAY A(,) TO BE THE 
SUM (COR DIFFERENCE )) OF THE TWO CORRESPONDING ELEMENTS IN 
ARRAYS B(,) AND C(,) > YOU COULD ACHIEVE THIS AS FOLLOWS 3 


MINUS SIGN 
IE THE DIFFERENCE 
(S WANTED 


200 FOR Cc 
210 FOR R 
220 LET A(R,C) = B(R,C) + C(R,C) 
230 NEXT R 
NEXT Cc 


now 
+ 
Oo 
N 


ARRAYS B(,) AND C(,) WOULD BE UNDISTURBED$ ARRAY A(,) WOULD 
END UP AS SHOWN AT THE TOP OF THIS PAGE o 


Notice THAT AypB&C ON LINE 100 HAVE NOTHING TO DO WITH 
THE ORDINARY VARIABLES AsB&C 9 THE WORD “MAT” TELLS 
BAS(C YOU MEAN ARRAYS Als)g Bl,) & Cle) o 


hr THE CURRENT DIMENSIONS OF THE TWO ARRAYS NAMED ON 
THE RIGHT OF THE EQUALS SIGN ARE NOT IDENTICAL THEN A&4S/C 
REFUSES TO OBEY THIS INSTRUCTION o 


DIM 
> B32) VS 12,3) 
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he ARRAY NAMED ON THE LEFT OF THE EQUALS SIGN MUST HAVE 
DIMENSIONS AT LEAST AS GREAT AS THE CURRENT DIMENSIONS OF THE 
ARRAYS NAMED ON THE RIGHT, THUS LINE 130 BELOW !S WRONG 3 
LINE 140 IS ALLOWED BUT WOULD CAUSE BAS/C TO RE-DIMENSION 
ARRAY E(,) SO THAT I(T HAD 3 ROWS AND 2 COLUMNS3 IT WOULD 
THEN BE A MISTAKE TO REFER TO £(3,3) {IMPLICATIONS OF 
RE-DIMENSIONING ARE DISCUSSED ON PAGE 79 o 


130 Mat SD = B+rc 
140 MAT E = Bte 


{SO LET £&(3,3) = 13 


[hw SOME ( BUT WOT ALL) BAS/CS YOU ARE ALLOWED TO HAVE THE 
NAME OF AN ARRAY ON BOTH SIDES OF THE EQUALS SIGN $ FOR 
THE SAKE OF “PORTABILITY” DON®T DO [To 


160 MAT A 
170 MAT A 


180 MAT A 


The FORM OF THIS INSTRUCTION MAY NOT BE VARIED. DON’T TRY 
ADDING EXTRA SIGNS AND LETTERSo 


{90 MAT A = -B+C ef MAT Anc-B) oxo Bie 
200 MAT A = BHC * 
210 MAT A = 


-B MAT A= (-1) 4B 
bs SEE OVERLEA 
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““ SCALAR” 
Fs (expression 
10 DIM A(3,2), B(3,2), C(4,3), D(2,2) 


1) 2) 1) 2) 1) 2) 


AC, BU) 5.2045 | cil, D(1, 
A(2, B(2z,}-3 | o | c(Q, D(2, 
A(3, Bi, C3, 

C4, 


tJurrose YOU WANT EVERY ELEMENT OF ARRAY A(,) TO BE 
REE TIMES THE VALUE OF THE CORRESPONDING ELEMENT IN 
ARRAY B(,)o YOU CAN ACHIEVE THIS FAIRLY SIMPLY AS FOLLOWSS 


FOR C=1 TO 2 

FOR R=1 TO 3 

LET A(R,C) = 3.0* B(R,C) 
NEXT R 

NEXT C 


BUT YOU COULD DO THE WHOLE THING WITH A SINGLE “MAT? 
STATEMENT LIKE THIS 2 


ARRAY B(,) WOULD REMAIN UNDISTURBED AND A(,) WOULD NOW BE 
AS SHOWN AT THE TOP OF THIS PAGE, EVERY ELEMENT HAS BEEN 
SCALED BY THE SCALAR ((z.e. NON-VECTOR or NON-MATRIX ) 
EXPRESSION IN BRACKETS » 


[Notice THAT A&B ON LINE 100 HAVE NOTHING TO DO WITH THE 
SIMPLE VARIABLES A& BZ THE WORD “MAT * TELLS BAS/C You 
MEAN ARRAYS A(,) & Bly) BUT /NS/DE THE BRACKETS A&B 
WOULD BE SIMPLE YARIABLES 2? LINE 130 BELOW WOULD HAVE 
EXACTLY THE SAME EFFECT AS LINE 100 ABOVE $ (A/B) 
REPRESENTS THE SCALAR QUANTITY (3.0). 


110 LET A= 
120 LET B=2 


130 MAT A = (A/B)*B 
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ne ARRAY NAMED ON THE LEFT OF THE EQUALS SIGN MUST HAVE 
DIMENSIONS IN THE “*DIM’? STATEMENT AT LEAST AS BIG AS THE 
CURRENT DIMENSIONS OF THE ARRAY NAMED ON THE RIGHT. 
THUS LINE 1440 BELOW IS WRONGS$ LINE 150 IS ALLOWED BUT 
WOULD CAUSE B8AS/C TO RE-DIMENSION ARRAY C(,) SO THAT IT 
HAD 3 ROWS AND 2 COLUMNS 3 {IT WOULD THEN BE A MISTAKE 
TO REFER TO C(4,2). IMPLICATIONS OF RE-DIMENSIONING 
ARE DISCUSSED ON PAGE 79 5 


140 MATS D = (0-5)* B 


( 
{450 MAT C = (-1)*B 
) 


160 LET C(a,2) = 13 


AR SOME (WOT ALLY BAS/CS YOU ARE ALLOWED TO NAME THE 
SAME ARRAY ON BOTH SIDES OF THE EQUALS SIGN 3 FOR THE 
SAKE OF “PORTABILITY” DON’T DO IT 


170 MAT A = (-X)*A 


Lhe EXPRESSION IN BRACKETS MAY BE AS COMPLICATED AS YOU 
LIKE AS LONG AS IT REPRESENTS A _ SINGLE SCALAR VALUE 8 


80 MAT A= (-X+SQR(3*B(24*1,7))) *B 
ye FORM OF THIS INSTRUCTION {S STRICTLY AS SHOWN IN THE 


HEADING OPPOSITE o SOME ERRORS OF FORM ARE [LLUSTRATED 
BELOW 8 


THIS 1S THE FORM FOR “MATRIx 
MULTIPLICATION, SEE PAGE 88 


x 
A 
192. MAT A = 2x) +B 
A 
A 


194 MAT = OOee 
= Bg Ow 


196 MAT 


83 


Lut “A = (3) 


{0 DIM A(3,2), B(2,3), C(3,3), D(2,2) 


{) 2) 1) 2) 3) 1) 2) 3) 


A(i,( 4-2 [-se| BU,[ 4-2] se To | c(t, 
A(2, B(2, C(2, 
A(3, (0 | 4 | c(3, 


D1, 

D(2, 
+ uppose YOU WANT THE ROWS OF ARRAY A(,) TO BE THE 3AME 
AS THE COLUMNS OF ARRAY B(,) @# IN OTHER WORDS YOU WANT 


A(,) TO BE THE T7RANSPOSE OF B(,). YOU COULD COPY THE 
ELEMENTS ONE BY ONE LIKE THIS 3 


FOR IT={1 TO 2 NOTE THE POSITIONS 
FOR J=i1! To 3 OF SUBSCRIPTS! 


LET A(J,1I) = B(I,J) 


WD (Z,/) 


NEXT J 
NEXT I 


BUT YOU COULD DO THE WHOLE THING WITH A SINGLE ** MAT” 
INSTRUCTION LIKE THIS: 


100 MAT A = TRN(B) 


ARRAY B(,) WOULD BE UNDISTURBED $ ARRAY A(,) WOULD END UP 
AS SHOWN AT THE TOP oF THIS PAGE, 


[orice THAT A&B ON LINE 100 HAVE NOTHING TO DO WTTH THE 
SIMPLE. VARIABLES A&B THE WORD “MAT” TELLS BAS/C YOU 
MEAN ARRAYS A(,) & BC) @ 


Phe ARRAY NAMED ON THE LEFT OF THE EQUALS SIGN MUST 

HAVE DIMENSIONS IN ITS “DIM% STATEMENT AT LEAST AS BIG AS 
THE CURRENT DIMENSIONS OF THE ARRAY NAMED ON THE RIGHT, 
THUS LINE {10 OPPOSITE 1S WRONG 3 LINE 120 IS ALLOWED BUT 
WOULD CAUSE BAS/C TO RE-DIMENSION ARRAY CC,) SO THAT IT 
HAD 7¥REE ROWS AND 7WO COLUMNS (NB. NOT 2 ROWS & 3 COLUMNS) 
AND {IT WOULD THEN BE A MISTAKE To REFER TO C(3,3) o 
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IMPLICATIONS OF RE-DIMENSIONING ARE DISCUSSED ON PAGE 79.4 


MAT “SD = TRN(B) 
MAT C TRN (8B) 


LET ME C(3, 3) = 43 


dfov MAY NOT NAME THE SAME ARRAY ON BOTH SIDES OF THE 
EQUALS SIGNS IN OTHER WORDS YOU MAY NOT TRANSPOSE 
A MATRIX ON TOP OF ITSELF 3 


| 140 MAT B = TRN(B)23C | 


BUT SOME BAS/CS DO ALLOW THIS, AS AN EXERCISE IT MIGHT 
AMUSE YOU TO WRITE A ROUTINE FOR REPLACING AN ARRAY BY 
THE TRANSPOSE OF ITSELF @ BUT WITHOUT COPYING IT FIRST TO 
SOME OTHER ARRAY @ IN OTHER WORDS YOU SHOULD TRANSPOSE 
THE ARRAY “IN-SITU” Do IT IS TRICKY BUT NOT IMPOSSIBLE o 


| Peansposirion IS A USEFUL OPERATION IN MATRIX ALGEBRA _sIN 
PARTICULAR FOR TRANSFORMING COORDINATES FROM ONE SET OF AXES 
TO ANOTHER o THE SIMPLEST EXAMPLE OF THIS IS ILLUSTRATED BELOW, 
Y 


THE COORDINATES OF POINT P 
RELATIVE TO U&V ARE whv 
RESPECTIVELY. WHAT ARE 
THE COCRDINATES OF P 
RELATIVE TO AXES X&Y 2 


USING TRIGONOMETRY 2 
X= UCOSO —- VSING 
= “SUNG + VCOSO 
WHICH MAY BE WRITTEN IN 
MATRIX FORM AS BELOW 2 


l(a ~eeelle) 


ALSO USING TRIGONOMETRY IT IS JUST AS SIMPLE TO FIND A PAIR OF 
EQUATIONS YIELDING @& AND 1 IN TERMS OF &% AND Y 3 


u}_ | cosO = St | Jac NOTICE THAT EACH OF THESE SQUARE 
Di |-sud Cae|ly (2) MATRICES 1S THE TRANSPOSE OF 
™ THE OTHER o 

IT IS GENERALLY TRUE OF ORTHOGONAL AXIS TRANSFORMATIONS THAT 
TO REVERSE THE TRANSFORMATION YOU SIMPLY 7RAMSPOSE THE 
TRANSFORMING MATRIX o IN TEXT BOOKS MATRICES ARE OFTEN INDICATED 
BY LETTERS IN BOLD TYPE AND TRANSPOSITION BY A PRIME. THE TWO 
EQUATIONS ABOVE MIGHT BE SHOWN ASS X=TU AND U#T’X y 
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an 
an 


10 DIM A(3,4) , B(2,3) 


1) 2) 3) 4) 
A(t;{_o [| Oo | o [| 0 | 1) 2) ~~ 3) 
A(z,{ o [oo fo To} Bafa ft ft | 
A3,, oT ofo fo} sajt fi [i | 


Vio MAY MAKE ALL ELEMENTS OF AN ARRAY ZERO LIKE THIS3 


200 FOR R= iTO 3 
210 FOR CeitTo 4 
220 LET A(R,C) = 0 
NEXT C 
NEXT R 


BUT YOU COULD DO THE WHOLE THING WITH A SINGLE “MAT”? 
INSTRUCTION LIKE THIS3 


{00 MAT A = ZER 


WHERE “ZER”® IS SIMPLY A WORD SHORT FOR ZERO, AND LETTER 
A HAS NOTHING TO DO WITH THE SIMPLE VARIABLE Ao THE WORD 
“MAT” TELLS SAS/C YOU MEAN ARRAY A(,)a 


THE ARRAY NAMED ON THE LEFT OF THE 
EQUALS SIGN !5 ASSUMED BY SOME BAS/CS TO RETAIN ITS 
CURRENT DIMENSIONS WHICH MAY BE SMALLER THAN THOSE IN 
iTS “DIM” STATEMENT. SO UNLESS THIS IS THE VERY FIRST “MAT” 
INSTRUCTION TO BE OBEYED 'IT IS SAFER_TO USE THE ALTERNATIVE 
FORM 3 EXPRESSIONS 


pp ALLOweD HERE 
iy ld 
110 MAT A = ZER(2,3) 


WHICH HAS THE EFFECT OF RE-DIMENSIONING THE ARRAY NAMED ON 
THE LEFT OF THE EQUALS SIGN AS WELL AS SETTING ITS ELEMENTS 
TO ZERO» IMPLICATIONS OF RE-DIMENSIONING ARE DISCUSSED ON 
PAGE 79 @ IF YOU DO USE EXPRESSIONS FOR DIMENSIONS , 
MAKE CERTAIN @ PERHAPS USING “INT }) THAT YOUR EXPRESSIONS 
YIELD INTEGRAL RESULTS, SOME BAS/CS USE THE NEAREST 
INTEGER TO THE RESULT BUT OTHERS TAKE THE /N7EGRAL PART 
OF THE RESULT. 
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IAA WACmCOR 


THE ONLY DIFFERENCE BETWEEN THIS INSTRUCTION AND “MAT A=ZER ”’ 
IS THAT THE RESULTING ARRAY 1S FULL OF 195 RATHER THAN O'S go 


{20 MAT B =~ CON(2,3) 


“CON” {5 SHORT FOR COWST7ANT YOU CAN SET ALL ELEMENTS TO 
ANY CONSTANT IN TWO “MAT INSTRUCTIONS 9 


130, MAT A= cON(2,8) 9 Se BOw ey 


{40 MAT B (-5)* A _ To -5 


Loot oA = 


“IDN” IS SHORT FOR /DENT/TY « (AN “{DENTITY MATRIX”? IN 
MATRIX ALGEBRA 1S ANALOGOUS TO UN/TY IN ORDINARY ALGEBRA 3 
THIS IS DEMONSTRATED ON PAGE S2fo) THE IDENTITY MATRIX 
HAS 41°S ON THE D/AGOWAL (@ WHERE ROW & COLUMN SUBSCRIPTS 
ARE EQUAL }) AND 0°S OFF 7HE D/AGONAL ( WHERE SUBSCRIPTS 
ARE UNEQUAL J)o HERE IS ONE WAY TO PROGRAM IT 3 


1) 2) 3) 
A(1,, 1 | o | 0 | 
A(2,| 0 | tf | 0 | ( 
AG[{ o [ o | 1 | 


BUT YOU CAN DO IT WITH A’ SINGLE “*MAT” INSTRUCTION 3 


ERE ODENTITY MATRICES 
) ARE ALWAYS SQUARE 


YOU MAY LEAVE OFF THE DIMENSIONS AND HAVE JUST “ MATA=IDN” 
BUT ONLY IF THE CURRENT DIMENSIONS OF A(,) ARE EQUAL o 


200 FOR R=1 TO 3 
210 FOR C=1 T0393 

220 LET A(R,C)=1-ABS(SGN(R-C)) 
230 NEXT C 
NEXT R 


YOU MAY ALSO HAVE EXPRESS/OVS FOR DIMENSIONS INSTEAD OF 
WRITTEN INTEGERS AS ABOVE o FOR EXAMPLE “MAT A=IDN(X,2*7+3)'o 
BUT THE RESULTS OF BOTH EXPRESSIONS MUST BE THE SAME WHEN 
BASIC EVALUATES THEM BECAUSE THERE IS NO SUCH THING AS A 
NON —~ SQUARE IDENTITY MATRIX FURTHERMORE YOU SHOULD 
MAKE. CERTAIN YOUR EXPRESSIONS CAN ONLY YIELD INTEGRAL 
RESULTS FOR THE REASONS GIVEN OPPOSITE 9 
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FIRST A BRIEF INTRODUCTION 
TO THE MEANING OF 
“INVERSE " 4 


FOR AN ORDINARY ALGEBRAIC EQUATION 8 
A.5 X = 37 


THE SOLUTION 1S32 
(4.5) x 37 

= 0.2222 * 37 

= 8.222 
THE PROCEDURE IS TO “INVERT” THE COEFFICIENT OF X AND 
MULTIPLY BY THE RIGHT-HAND SIDE (AAS). NOTICE THAT THE 
ORIGINAL COEFFICIENT, 4:54 MULTIPLIED BY ITS “INVERSE”, 0.2222, 
IS 0-9999.... @ IDEALLY EXACTLY 1 ) o 


x 
i 


[in MATR/X ALGEBRA THERE IS AN ANALOGOUS APPROACH TO 
SVMULTANEOUS EQUATIONS o CONSIDER THESE THREE 3 


5X + (0Y + 52 = 3. 

2X + 24Y + 82Z = 45 

6 X +36Z = 6.3 
THEY MAY BE WRITTEN IN MATRIX FORM LIKE THIS 3 

15 10 5 x 3.1 

12 24 8 FLY | = [| 4-5 

6 6) 36 Z 6-3 


QF YOU FORM THE INNER PRODUCT OF ROW1 OF THE FIRST MATRIX AND 
CCLUMN 1 OF THE SECOND YOU GET 15K +1OxY +5~Z lc. JUST AS 
THE INNER PRODUCTS ARE SET OUT ON PAGE 88.) 


THE SOWTION OF THE EQUATIONS |S $ 


x 15 10 5 3-4 
Y|/= 12 24 8 *1 4°5 
Z © 0 36 6-3 


WHERE THE “—17 AS A SUPERSCRIPT TO THE MATRIX DENOTES THE 
“INVERSE” OF THAT MATRIX 4 WHICH @ AS WILLBE SHOWN } WORKS 
OUT LIKE THIS3 


x *1029 ~—-0429 --00476] | 3-1 
y | = |--0457.  -0607. —-O0714|*| 4-5 
Zz --0175 -00714 -0286] | 6-3 


FROM WHICH YOU CAN GET ANSWERS FOR ANY RIGHT-HAND SIDE BY 
MATRIX MULTIPLICATIONa FOR EXAMPLE , TO GET Y ( ROW2,COLUMN1 22 
Y = —0.0457 x 3+1 + 0.0607x4-5 — 0.00714. xO-3 = 0.4598 
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TO COMPLETE THE ANALOGY WITH ORDINARY ALGEBRA, MULTIPLY THE 
ORIGINAL MATRIX OF COEFFICIENTS BY ITS INVERSE 3 


15 10 5 “1029 -—-OA29 —--00476 1-001 —--0008 —-0088 
12 24 8 {|x |-°0457 °0607 --00714 |= 0012 9991 * 00022 
6 O 236 —°0171 “00714. +0286 ‘0018 -—-00036 4-001 


GIVING A MATRIX VERY NEAR TO THE /QENT/TY MATRIX = A SORT OF 
“MATRIX UNITY”o ((IDEALY THE ANSWER SHOULD BE PRECISELY THIS BUT 
WE WORKED TO ONLY 4 SIGNIFICANT FIGURES 9) 


O YOU CAN GET THE INVERSE SHOWN ABOVE BY SOLVING 3 SIMUL- 
TANEOUS EQUATIONS USING THE COLUMNS OF THE IDENTITY MATRIX AS RIGHT- 
HAND SIDES <> EFFECTIVELY “DIVIDING’ MATRIX UN/TY BY THE COEFFICIENTS 
sy OR “INVERTING” THE MATRIX OF COEFFICIENTS o 


1SxX + 10xyY + 5SxZ = {1 THEN O THEN O 
12xX + 24*7 + BxZ= 1 6) 
6*X + OxY¥ + 36xZ= O ‘e) 1 


WE DO THIS AS WE DID AT SCHOOL BUT PERHAPS IN A MORE RIGIDLY— 
ORDERED SEQUENCE. FIRST ELIMINATE COEFFICIENTS OF X IN EQUATIONS 
2AND3 o> MULTIPLY EQ.2 BY 15, DIVIDE THROUGH By 12, AND 
SUBTRACT THIS SCALED EQUATION FROM EQ@.L THUS GIVING A NEW EQ.26 
SIMILARLY FORM A NEW £Q.3 BY MULTIPLYING EQ.3 By 15, DIVIDING 
THROUGH BY 6, AND SUBTRACTING FROM EQ.1o 


ISxX + {0*¥Y + 5xZ= 1 fe) e) 
£02= EQ1 —(15/12)xEQ2 14. OxX + 2OKY - 5S*Z= | —|-25 O 
£03 = £Q1-(15/6)*EQ3... OxX + 10*¥Y -85xZ= 1 O -25 


NOW ELIMINATE THE COEFFICIENT OF Y IN NEW EQUATION 3a MULTIPLY EQ3 
BY —20, DIVIDE THROUGH BY 10, AND SUBTRACT FROM EQ.20 


ISxX + 10x¥Y + 5*Z = 4 a) fe) 
OxX — 20*¥Y -5*Z= | -|.25 O 
£03 = EQ@2—(-20/10) «EQ3...0*X + Ory~-175xZ= 3 —1-25 -5 


THE ORIGINAL MATRIX OF COEFFICIENTS NOW HAS ALL ELEMENTS BELOW THE 
DIAGONAL EQUAL TO ZEROe SO NOW “BACK SUBSTITUTE” STARTING AT 
EQUATION 3 AND WORKING BACK TO EQUATION to 


THE ONLY UNKNOWN IN EQ@.3 IS Zs, SO DIVIDE RY-SIDES BY —I75 3 
Z= —-OI7! ‘OO714 +0286 


Now FROM EACH AMS OF EQ.2 SUBTRACT (-5) TIMES THE CORRESPONDING 
VALUE OF Z, AND DIVIDE BY THE COEFFICIENT OF Y WHICH IS (—20) 
Qeg. THE First ts [4-(-5)x(--0171)J+ C20) = --0457 Do 

Y = ~-*0457 °0607 -~+00714 
FINALLY, FROM EACH KS OF EQ.1 SUBTRACT 5 TIMES THE CORRESPONDING VALUE OF 
Z» 10 TIMES THE CORRESPONDING VALUE OF Y, AND DIVIDE By 15 
(29. THE FIRST 18 [1—5» (--0171)- 10x(--0457)1+15 = +1029 Po 

X= +1029 -*0429 --00476 
THESE ARE THE 3 ROWS OF THE INVERSE «se PRODUCED IN REVERSE ORDER» 
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a= LAA (3) 


10 DIM A(3,3), B(3,3), 1(3,3) 


1). 2) 3) 1) 2) 3) 
A(4, BU,| 15 | 10 | 

A(2; B(2, 
A(3, B(3, 


lee IS A ROUTINE TO INVERT A MATRIX OF DIMENSIONS 
N BY N STORED AS. AN ARRAY B(,) 3 THE INVERSE I[S 


BUILT UP IN A(,)« THE METHOD USED IS EXPLAINED BY THE 


EXAMPLE ON THE PREVIOUS DOUBLE PAGE o 


A(,) = INVERSE B(,)3 N BY N. 


210 FOR 1#=t4 TON 
220 FOR J= 1 TON 

230 LET A(I,J) = 1 — ABS(SGN(1-J)) 
240 NEXT J 
I 


260 FOR I = 170 N-t 
270 IF ABS(B(1,I)) > 0.00001 THEN 300 
"CAN’T COPE WITH "3 B(I,I) 


CONSTRUCT THE 
IDENTITY MATRIX 


J= I+1 To N 
310 LET X= B(J,I)/ B(L1,I) 

320 FOR K#1TON 

330 LET B(J,K) = B(J,K)— X* B(I,k) 
340 LET A(J,K) = AWU,K)—-X*A(I,K) 
350 NEXT K 

360 NEXT J 

370 NEXT I 


380 FOR I=-N TO tL STEP -1 “BACK SUBSTITUTE” 
390 FOR K=1{TON IN ACs) 
400 FOR J =zI+i{ TON 


4io.—_ LET A(I,K) = A(I,K) — B(1,J)* ACJ, K) 


“ TRIANGULATE ” B(,) 


CACC 
mlm] im [arts 


J 
A(I,K) = A(I,K) / BCI,I) 


Dur YOU MAY DO THIS MUCH BETTER WITH A SINGLE “MAT” INSTRUCTION 3 


100 MAT A#= INV(B) 
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AF THE MATRIX HAS NO INVERSE ((IF IT IS “SINGULAR” } THEN SOME 
BAS/CS REPORT AN ERROR AND STOP EXECUTION 9 OTHERS DON®*T REPORT 
AN ERROR BUT PROVIDE THE MEANS OF PICKING UP THE DETERMINANT 
OF THE MATRIX AS SHOWN BELOW. A ZERO DETERMINANT IMPLIES A 
SINGULAR MATRIX. (@ A DETERMINANT (S /LLUSTRATED ON PAGE 43,4) 


110 LET D = DET 
120 IF D > +001 THEN 150 oh FY 


130 PRINT "SINGULAR MATRIX" 
140 STOP 


THE VALUE PROVIDED BY “DET” IS THE VALUE OF THE DETERMINANT OF 
THE MATRIX LAST INVERTED (OR LAST ATTEMPTED) BY YOUR PROGRAMo 
NOT ALL BAS/CS, HOWEVER, PROVIDE THE “DET” FUNCTION » 


iN NON- SQUARE MATRIX CAN HAVE NO INVERSE <a ATTEMPTS TO 
COMPUTE ONE ARE TREATED AS MISTAKESs AND MOST BAS/CS 
REFUSE TO REPLACE A MATRIX BY ITS OWN INVERSE, 


A = CON(2,3) sof 20 nee) 


160 MAT B= INV(A) 33 
2 E 
170 MAT B& = INV(B) Mite (Bom s/06s 


Vou CAN JUDGE THE ACCURACY OF INVERSION BY PRINTING THE 
PRODUCT OF THE ORIGINAL MATRIX AND ITS INVERSE. BY DEFINIT- 
JON THIS SHOULD BE THE IDENTITY MATRIX EXACTLY BUT USUALLY 
DIFFERS BECAUSE OF “ROUNDING” ERRORS AS PREVIOUSLY 
ILLUSTRATED USING FOUR SIGNIFICANT FIGURES o 


{80 


MAT A = INV ( B) “MAT. PRINT? 
MAT I = B#A OS DESCRIBED 
195 MAT PRINT I 


190 


fe DIMENSIONS OF A(,) IN ITS “DIM” STATEMENT MUST BE AT 
LEAST AS BIG AS THE CURRENT DIMENSIONS OF B(,) AT LINE 180 
ABOVE. IMPLICATIONS OF RE-DIMENSIONING ARE DISCUSSED ON PAGE 799 


he ROUTINE FROM LINE 200 OPPOSITE DIFFERS IN ITS EFFECT FROM 
“MAT A=INV(B)%. FIRST OF ALL IT MAKES A MESS OF ARRAY BX,) 3 
THE “MAT” INSTRUCTION SHOULD NO7 DO THIS. (@ JF YOUR VERSION DOES 
MANGLE B(,) IT WILL BE EVIDENT WHEN You RUN THE TEST AT LINE 
180 ABOVE ,)) SECONDLY THE ROUTINE OPPOSITE ONLY WORKS WELL IF 
NUMBERS ON THE DIAGONAL OF B(,) ARE MUCH THE SAME SIZE AS ONE 
ANCTHER AND BIGGER THAN TERMS OFF THE DIAGONAL’ Q@iT wit NOT 
WORK AT ALL IF B(i,1) IS ZEROo)) THE “MAT” INSTRUCTION SHOULD 
SELECT BEST DIVISORS: NOT SIMPLY USE DIAGONAL ELEMENTS AS 
DONE AT LINE 310 OPPOSITE. FOR THE SAKE OF A SIMPLE 
ILLUSTRATION @ 
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THIS INSTRUCTION 
READS FROM THE SAME 
“DATA”? STATEMENTS AS 
THE ORDINARY “READ”, 


10 DIM A(2,3), B(3,1), C(1,3) 
20 DATA 3.5, 2.3, 3.2,4.6, 5.7, 6.5, 7.1 
30 DATA 8.9, 9.0, 11-7, 12.6, 13, 14, 15 


AQ, | 15 [2.3 | 3.2 | + — C1, | 7 | 
az,[ ae] 57 | 65] see 
9 


{Suppose YOU WANT To. FILL ARRAY A(C,) BY ROWS FROM THE 
QUEVE OF DATA STARTING ON LINE 20, YOU COULD DO JIT LIKE THIS3 


FOR R=1 70 2 
FOR C«=i170 3 
READ A(R,C) 


NEXT C 
NEXT R 


BUT YOU COULD DO THE WHOLE THING WITH A SINGLE “MAT” 
STATEMENT LIKE THIS 3 


AQ) 1/5 READ 


IN FACT YOU MAY FILL ANY NUMBER OF ARRAYS € BY ROWS) USING A 
SINGLE “MAT” INSTRUCTION 8 


ALWAYS COMMAS 
{00 MAT READ A, B,C IN THIS LIST 


THE ARRAYS A(,), B(,) & CC,) WOULD THEN BE AS SHOWN AT THE 
TOP OF THIS PAGE, NOTICE THE LETTERS A,B&C HAVE NOTHING 
TO DO WITH SIMPLE VARIABLES A,B&C, 


(*), THE OTHER HAND YOU MAY FARZ/ALLY FILL ARRAYS BY 
SPECIFYING NEW DIMENSIONS IN THE “MAT” INSTRUCTION ¢y AS LONG 
AS THEY ARE NO BIGGER THAN THOSE IN THE “DIM” STATEMENTS, 


{00 MAT READ A(2,2),B, C(4,4) 

1) 2) 
A(1,{ 5 [2.3] 
A(2,[ 3.2 [a6] 

IF YOU OMIT DIMENSIONS FROM “MAT READ” THEN 8AS/C USES THE 


CURRENT DIMENSIONS OF THAT ARRAY # THESE MAY BE SMALLER 
THAN THOSE IN ITS “SDIM’? STATEMENT. 


34 


100 MAT A*ZER(1,1) 


110 MAT READ A 


THUS THE INSTRUCTIONS ABOVE WOULD CAUSE JUST ONE 
NUMBER TO BE READ INTO THE 1 BY 1 ARRAY A(,) © 
IMPLICATIONS OF SUCH RE-DIMENSIONING ARE DISCUSSED ON PAGE 79, 


Vu MAY HAVE VARIABLES OR EXPRESSIONS AS DIMENSIONS IN 
THE “MAT” STATEMENT 3 


£ (10,10) DIMENS/ONS 
2,3 ell ~=AS DATA 


1.1, 2.2, 3.3, 4.4, 5.5, 6.6 


R, C¢ LF VeSS EXPRESSIONS 
READ E(R,C ALLOWED HERE 


BUT ALWAYS ENSURE @ PERHAPS BY USING “INT” ) THAT THE EXPRESSIONS 
YIELD INTEGRAL RESULTS BECAUSE SOME BAS/CS USE THE WEAKEST 
INTEGER TO THE RESULT AND OTHERS USE THE /N7EGRAL PART o 


Picre IS ONLY ONE QUEUE OF DATA IN THE “DATA’? STATEMENTS 
AND EACH “READ” OR “MAT READ’ TAKES WHAT IT NEEDS WHEN 
OBEYED, THE INSTRUCTION “RESTORE” TAKES THE PROGRAM 
BACK TO THE BEGINNING OF THE QUEUE AS EXPLAINED ON PAGE 17, 


Tie “MAT READ” INSTRUCTION JIS USEFUL FOR SETTING UP 
“STATE TABLES” IN PROGRAMS THAT USE SUCH DEVICES? A FULL 
EXAMPLE IS INCLUDED ON PAGE 102.06 
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THIS INSTRUCTION 
DEMANDS COMPLETE 
ARRAYS AS INPUT 
DATA o 


° 
eotecoe ses 
° 


Lessee! 


PPeeFe SHH CHEE FEE OEE EELOSO 


[edeee IS ONE WAY TO FILL A SPECIFIC PART OF AN ARRAY WITH 
NUMBERS DEMANDED FROM THE KEYBOARD > 


200 PRINT "TYPE THE DIMENSIONS" 

210 INPUT R,C 

220 FOR L=1TOR 

230 PRINT "TYPE ROW"; I3 "ONE NUMBER PER LINE” 
240 FOR J=it Toc 

250 INPUT ACI,J) 

260 NEXT J 

270 NEXT TI 

END 


TYPE THE DIMENSIONS 
? 2,2 

TYPE ROW 14 ONE NUMBER PER LINE 
? 4.5 

? 2.6 

TYPE ROW 2 ONE NUMBER PER LINE 
? 3-7 

2? 4.8 


pis COULD BE ACHIEVED IN A DIFFERENT WAY USING THE “MAT INPUT” 
INSTRUCTION LIKE THIS 3 


100 PRINT "TYPE THE DIMENSIONS “ 

110 INPUT R,C 

120 PRINT "TYPE"; R3"ROWS OF"; C; "NUMBERS" 
130 MAT INPUT A(R,C) 

140 END 


RUN 

TYPE THE DIMENSIONS 
22,2 

TYPE 2 ROWS OF 2 NUMBERS 
71.5, 2-6 

23.7, 4.8 
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\PAENEVER YOU WANT TO DEMAND DATA FROM THE KEYBOARD IT IS 
BETTER TO WRITE A SPECIAL INPUT ROUTINE @ SUCH AS THAT 
STARTING AT LINE 200 2 THAN TO USE THE “MAT INPUT” 
INSTRUCTION, THREE REASONS ARE 3 


You CAN PRINT HELPFUL INTERMEDIATE MESSAGES 
SUCH AS THAT ON LINE 230 6% IMPOSSIBLE USING 
“MAT INPUT” o 


Vifou MAY TEST THE RANGE OF EACH NUMBER AS TYPED 
AND TAKE ACTION BEFORE THE WHOLE ARRAY HAS 
BEEN TYPED» FOR EXAMPLE, IF YOU KNOW THAT 
ALL NUMBERS SHOULD BE SMALLER THAN #103 


252 IF ABS(A(I,J)) < 10 THEN 260 


254 PRINT "OUT OF RANGE3 RETYPE COL."3 J 
256 GO TO 250 


THEN YOU COULD INSERT THIS ROUTINE IN THE ROUTINE 
OPPOSITE o 


AB ypine ONLY ONE NUMBER PER LINE AVOIDS AN 
EMBARRASSING PROBLEMS WHAT IF YOU CAN’T GET THE 
WHOLE ROW ON ONE LINE % SOME BAS/CS ALLOW AN 
AMPERSAND ®@ & << AT THE END OF THE LINE TO SAY 
“T HAVENT FINISHED THE ROW YET” 3 OTHER BASICS 
OFFER DIFFERENT SOLUTIONS o 


SO FOR TRE SAKE OF PORTABILITY, IF NOTHING ELSE, DON’T USE 
“MAT INPUT?? FOR DEMANDING DATA FROM THE KEYBOARD. THIS 
INSTRUCTION |S USEFUL FOR OTHER PURPOSES AS WILL BE SHOWN o 


Tf LIST FOLLOWING “MAT INPUT” MAY CONTAIN NAMES OF ANY 
NUMBER OF ARRAYS 3 ANY OF THESE NAMES MAY HAVE DIMENSIONS 
AFTER THEM, AS IN THE CASE OF “MAT READ’? THE DIMENSIONS 
MAY BE INTEGERS 9 VARIABLES OR EXPRESSIONS AS LONG AS THE 
VALUES EXPRESSED DO NOT EXCEED THOSE IN THE “DIM” STATE- 
MENTSe IF YOU USE EXPRESSIONS FOR DIMENSIONS MAKE SURE 
THEY WILL ALWAYS YIELD INTEGRAL RESULTS BECAUSE SOME BAS/CS 
USE THE WEAREST INTEGER TO THE RESULT AND OTHERS THE 
INTEGRAL PART, SOME OTHER IMPLICATIONS OF RE-DIMENSIONING 
ARE DISCUSSED ON PAGE 79.5 


150 MAT INPUT A, B(2,1), C(2#X, Y) 


ALWAYS COMMAS 
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THIS INSTRUCTION 
CAUSES COMPLETE 
ARRAYS TO BE 
PRINTED o 


A(3,3), 8B(2,3), C(2,3) 
LDN (2, 2) 


PB = CON 
C = (-1.5) *B 


1) 2) 1) 2) 3) 4) 2) 3) 


Ag,( a TO] opGfa te Pa] ec, rs y-rs E15) 
nee aS — p = BCL Pt Tt] c(2,}-4-5 [us [1-5 | 


ARRAY A(,) =%* AND TO PRINT IT BY ROWS). 


210 FOR R={1 TO 2 


= 3 ENSURES RESULTS ARE 
220 FOR C=i1TO 2 SLES ROMER 


230 PRINT ACR,C)3 «Qed ow EACH ROW 
240 NEXT C 

250 PRINT 
260 PRINT <t-F ONE BLANK LINE 


YOU CAN DO THIS WITH A SINGLE “*MAT™ INSTRUCTION 


100 MAT PRINT Ay <q 2s ttn 


AND YOU MAY PRINT ANY NUMBER OF ARRAYS WITH A SINGLE “MAT” 
INSTRUCTION o THE PUNCTUATION IS EXPLAINED IN MORE DETAIL OPPOSITE , 


e A ay! Cl,) 
{{0 MAT PRINT A3$C, 


THESE ARRAYS GET PRINTED BY ROWS. (IF YoU WANT COLUMNS OF AN 
ARRAY PRINTED AS ROWS ON THE PAGE USE “MAT B=TRN(A)” FIRST o 
THESE ARRAYS ARE PRINTED ACCORDING TO THEIR CURRENT DIMENSIONS, 
THUS ARRAY A(,) WHEN PRINTED WOULD HAYE 2 ROWS WITH 2 NUMBERS 
JN EACH ROW2 IT WAS GIVEN THESE DIMENSIONS ON LINE 20 ABOVE, 
ARRAY C(,) WOULD HAVE 2 ROWS,EACH OF 3 NUMBERS o 


Loner WRITE DIMENSIONS IN THIS INSTRUCTION, BAS/C KNOWS THE 
CURRENT DIMENSIONS OF ALL ARRAYS AND OBJECTS TO BEING 


REMINDED» 5 COMMA 
IMPLIED 
120 MAT PRINT A(2,2) 3 C Rm OMISSION 


LLayour OF THE OUTPUT PAGE FOLLOWS THE RULES GIVEN BELOW <u 
THOUGH THERE MAY BE MINOR DIFFERENCES !IN SOME 8AS/CSo 


[¥very ROW OF THE ARRAY STARTS A NEW LINE ON THE 
OUTPUT PAGE o 


NPHERE IS A BLANK LINE ON THE OUTPUT PAGE AFTER 
EVERY PRINTED ROW OF THE ARRAY 


Le A ROW OF THE ARRAY DEMANDS MORE THAN THE 
WIDTH OF THE OUTPUT PAGE @ TYPICALLY 72 CHARACTERS ) 
THEN THE ROW IS CONTINUED ON THE NEXT LINE OF THE 
OUTPUT PAGE o 


fr A SEMICOLON FOLLOWS THE NAME OF AN ARRAY 
IN THE LIST AFTER “MAT PRINT” THEN THE NUMBERS 
IN EACH ROW ARE PRINTED CLOSE TOGETHER? IF A 
COMMA FOLLOWS THE NAME THEN THE NUMBERS ARE 
PRINTED IN ZONES QTYPICALLY 15 CHARACTERS WIDE) o THE 
PRECISE EFFECTS OF SEMICOLONS AND COMMAS IN THIS 
CONTEXT ARE EXPLAINED ON PAGE 29 , 


[Je WERE IS NO PUNCTUATION AFTER THE FINAL NAME 
LISTED IN THE “MAT PRINT” INSTRUCTION THEN A COMMA 
IS IMPLIED BY OMISSION, ( PUNCTUATION IS ESSENTIAL 
BETWEEN |TEMS IN THIS LIST.) 


Gu MAY FIND THE RIGID FORMAT |JMPOSED By THIS INSTRUCTION 
GIVES LITTLE SCOPE FOR DESIGNING ATTRACTIVE PAGE LAYOUTS @# BUT 
THE INSTRUCTION 15 VERY USEFUL WHEN DEVELOPING NEW PROGRAMS o 


Ww fr THE ARRAYS AT THE TOP OF THE OPPOSITE PAGE THE 
OUTPUT GENERATED BY LINE 110 WOULD LOOK LIKE THIS? 


COMPLETE EXAMPLE PROGRAMS 


5 ~ 5 A PROGRAM TO CONVERT 
MC Dx LI ROMAN TO MORE FAMILIAR 
Ss NUMBER Ss a 


THIS EXAMPLE DEMONSTRATES THE USE OF A SYMBOL-STATE TABLE 
sw A STANDARD TOOL IN PROGRAMMING < 


ASSUME ALL VALID ROMAN NUMBERS ARE COMPOSED OF THE 
FOLLOWING ELEMENTS « NEVER MORE THAN ONE FROM EACH 
CONSECUTIVE BOX 8 


D = 500 
«100 DC=600 


CC=200 DCC = 700 
CCC= 300 DCLC= 800 


L= 50 

X#=10 LX=60 
XX= 20 LXX = 70 
XXX = 30 LXXX = BO 
XL=40 XC=30 


V=5 

I= 1 VI=6 
Il=2 VIt=7 
lil=3 VIII=8 
IV=e4 TX=9 


qIT SEEMS CLASSICAL ROME SELDOM USED THE SUB7KAC7/VE PRINCIPLE 
INHERENT IN IV , PREFERRING ITIL , BUT THIS PROGRAM REFUSES To 
HANDLE MORE THAN THREE CONSECUTIVE LETTERS OF THE SAME KIND a) 


Lhe LOGIC OF THE PROGRAM !IS CONTAINED IN THE FOLLOWING 
SYMBOL- STATE TABLE 3 


“SYMBOL”? 


5 & 07 


B ERROR BERKOR A 10&0G) 5& O7 


1 : 


c —_ -- = —_—3 


[300405] 100804) 508 06 

Ee cKcoe SE eRe 80807] 30807] 108 06| 5408] 1 & tI | 

it Bi eckor Se PROC AE CSE RCRA 8200] 3% 00} 1 & 08) 

Tae THE ROMAN NUMBER CIX AS AN EXAMPLE 2 BEGIN WITH A YALUE 
OF ZERO» YOU ARE IN STATE O1 ( WHERE THE ARROW !S 2 SO LOOK 
DOWN FROM SYMBOL C AND FIND 100&09 WHICH SAYS “ADD 100 TO 
THE VALUE & CHANGE S7A7TE TO 09°85 SO ADD 100 TO ZERO & MOVE 
THE ARROW TO O94 NOW LOOK DOWN FROM SYMBOL I AND FIND 

1&113 SO ADD 1 TOTHE VALUE @100+1=101) & MOVE THE ARROW TO 

STATE 11a FINALLY LOOK DOWN FROM SyMBOL X AND FIND 8%00§ SO 
ADD 6 TO THE VALUE (101+8=109)o THE OO MEANS YOU°VE FINISHED o 


“ STATE ” 
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Re TABLE IS PART OF THE COMPUTER PROGRAM AND PREPARED AS 
SHOWN BELOW s TO SAVE SPACE EACH ELEMENT OF A(,) IS MADE TO 
CONTAIN BOTH THE NUMBER TO BE ADDED AND THE NUMBER OF THE 
NEW STATE =#% THUS 5&07 BECOMES 10045 +07 = 507. THE 
ENTRIES SAYING “ERROR®? ARE ENTERED AS -1 4 


10 REM DECODE ROMAN NUMERALS 

20 DIM A(it,7),  Cé(7) 

30 REM EACH ELEMENT =100 ADDITION + NEWSTATE 

100 * REM M, D, Cy Ly X, V, t 


{10 DATA 100002, 50003, 10009, 5005, 1010, 507, 111 
120 PATA 100002, 50003, 10009, 5005, 1010, 507, 111 


130 DATA —1, -1, 10009, 5005, 1010, 507, 111 
140 DATA -1, ~1, 10004, 5005, 1010, 507, 111 
150 DATA -1, ~{, —{, 5006, 1010, 507, 111 
460 DATA -1, -4, -4, —1, 1006, 507, 111 
{70 DATA -{, —1, -1, -{, —i, 508, 411 
{80 DATA -{, —1, ~{,; ~i,  -—1, 1, 108 
190 DATA 80005, 30005, 10004, 5006, 1010, 508, 111 
200 DATA ~{, -1, 8007, 3007, 1006, 508, 15! 
210 DATA —-{, -j, —1, —{, 800 ; 300, 108 
220 REM 

230 MAT READ A(1i,7) 

240 DATA "M", "D', coum mun > an "y", ar" 
250 READ c$(1), c$(2), C$(3), C$(4), C$(5), C$(6), C$(7) 
260 REM 


{ 
ne TEXTUAL ARRAY C#() IS NOW LIKE THIS 
C$(1) ¢$(2) Cc$(3) c$(a) c$(5) c$(e) C$(7) 

IDEALLY WE SHOULD NOW “INPUT” A SINGLE TEXT LIKE “MCDXCLI” 
AND EXTRACT ITS LETTERS ONE BY ONE FOR MATCHING IN ARRAY 
C$( )eo UNFORTUNATELY BASICS 
CAN*T AGREE HOW TO DO IT. 
FINISHED SUPPOSE YOU HAD THIS TEXTS 

LET P$ = "FRUSTRATION" 

& WANTED TO PUT "RAT" INTo A$ $ 
HERE ARE JUST SQYE WAYS TO DO TT, 
LET A$= SUBSTR(P¢, 6,3) 

LET A$=P$(6,8) 
LET A$=STR(P$, 6,3) 
LET A$=MID(P$, 6%, 3%) 


Y x As THE LET A$=EXxT$(P$, 6,8) 
K>7 MBER = s 
ERROR: NO MATCH THE COLUMN LET Ag = PSGG2%) 
: OF ACs ) LET A£=SUB4 (Pd, 6, 3) 


NO WE SHALL BE CONTENT TO “INPUT” LETTERS ONE BY ONE <> SEE OVERLEAF o 
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adcee IS THE MAIN BODY OF THE PROGRAM FOR DECODING ROMAN 


NUMERALSS$ 
| 300 


| 


| 


i a ee eee 
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300 

310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 

A20 
430 
440 
450 
460 
470 
480 
490 
500 
510 

520 
530 
540 

550 
560 
570 
580 
590 

600 

610 


RUN 


ae 


~_—o—o 


REM MAIN PROGRAM STARTS 

PRINT "TYPE ROMAN NUMBERS LETTER BY LETTER" 
PRINT "END NUMBERS WITH * END RUN WITH *& " 
PRINT “NUMBERS ENDING IV & IX NEED NO * “ 
PRINT 


1] 
PRINT ° START INITIAL “STATE” 
LET Re=1 IN TRE TABLE ACCUMULATE 
RESULT IN 
mM 


~L 


LET M=O —— 


_ COUNT OCCURRENCES 
LET C=O OF IDENTICAL CONSECUTIVE 
LET P=0 mon ans 

E TTE. 
INPUT T $ VIOUS LE R 


IF T$= “**" THEN G10 of END OF RUM) 

IF T$= "*" THEN 580 Pn ene) 
FOR K=1 7107 ye 

IF T$=C$(K) THEN 480 

NEXT K 

PRINT "CRAZY ROMAN NUMBER “ 
GO TO 340 a 

LET x= A(R,K) Seb FROM TABLE 


IF X<O THEN 460 Ant w pate Meas BOD 


REM ENSURE ONLY 3 OCCURRENCES OF ANY 1 LETTER 


LET C= (1- ABS(SGN (K-P)))* (14+C) CO 
= =O 

IF C>2 THEN 460 ee 
omawae pass 


«ws 


Pick UP ELEMENT 


rally 


LET P=K 
REM ACCUMULATE RESULT IN M3 CHANGE STATE_R 


LET M=M+ INT(X/ 100) Cf fst! Pre of evEMENT ) 
LET R=X-— 100 INT (X/ $00) 
IF R <> O THEN 400 — 

REM PRINT THE RESULT 


PRINT M 
GO TO 340  <minew grant) 
END 


TYPE ROMAN NUMBERS LETTER BY LETTER 
END NUMBERS WITH * END RUN WITH ¥* 
NUMBERS ENDING IV & IX NEED MO * 
START 


? 
? 


(wo * BECAUSE 
NUMBER ENDS 
IN IV 


ln THIS EXAMPLE THE FIRST PART OF EACH ELEMENT OF THE 
SYMBOL-STATE TABLE IS SIMPLY A NUMBER TO BE ADDED INTO 
VARIABLE *M?, IN MORE SERIOUS APPLICATIONS THIS WOULD BE 
THE LINE NUMBER OF A SUBROUTINE s AFTER PICKING UP AN 
ELEMENT (@ AS AT LINE 480) THERE WOULD BE AN “ON” 
INSTRUCTION CAUSING A JUMP TO THE PARTICULAR SUBROUTINE 
SELECTED BY THAT ELEMENT. AFTER RETURNING FROM THE 
SUBROUTINE THERE WOULD BE AN INSTRUCTION CAUSING A 
(CHANGE OF STATE JUST AS THAT ON LINE 560 » 
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A PROBLEM 
COMMON TO 
INDUSTRY AND 
COMMERCE o 


HERE IS AN EXAMPLE OF AN ‘*ALGORITHM” (( COMPUTER JARGON FOR 
“METHOD” )) BY WHICH YOU CAN TRACE THE QUICKEST ROUTE 
THROUGH A NETWORK OF “SNODES” AND “EDGES” (ANOTHER 
APPLICATION OF THE TECHNIQUE SHOWN IS “CRITICAL-PATH ANALYSIS gf) 
THIS ALGORITHM WORKS AS LONG AS THERE IS NO MORE THAN ONE EDGE 
IN ONE DIRECTION BETWEEN ANY TWO NODES o 


> © mae 

0 Oe Ae) 

TIME 
TRA VEL ALONG 
THIS EDGE 


12.0 


Pas IS HOW IT WORKS, YOU KEEP TRACK OF THINGS AS SHOWN IN 
THE SKETCH BELOW FOR NODE 2, 


1) 2) 3) 


OF NODE 2 


NODE 2 ee 


SS rartine AT NODE 3 VISIT EACH NODE IN TURN —@ 3, 4,5,6, 
CONTINUING ROUND AGAIN &@ 1,2,3,4,5,6,1,2, etc. UNTIL 
ALL THE “SWITCHES” ARE “OFF”? AT EACH NODE DO THE FOLLOWING 
sw AS DESCRIBED FOR NODE 2 2 


Xe LOOK AT THE SWITCH IN A(2,1)9 IF THIS IS“OFF” THEN GO 
ON TO THE NEXT NODE, IF (IT 315 “ON” THEN 3 
se PICK UP THE BEST TIME SO FAR THIS IS IN A(2,2)@ 


sk USE THE HEAD OF CHAIN IN A(2,4) To START LOOKING AT 
ALL NODES RUNNING OUT OF NODE 2.4 FOR EACH LINK 
IN THE CHAIN DO THE THINGS DESCRIBED BELOW WITH 
SPECIFIC REFERENCE TO NODE 5 8 
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vx PICK UP THE NODE NUMBER INITIALLY THIS 1S 5 ), 


Yr PICK UP THE TIME TO TRAVEL ALONG THE EDGE TO 
THAT NODE (INITIALLY 8-0 } AND ADD THIS TO TRE 
TIME ALREADY PICKED UP FROM A(2,2) TO GIVE T$§ 
(THE TIME TO REACH NODE 5 YiIA NODE 2) a 


&X CONSULT A(5,2) TO SEE IF YOU RAVE JUST FOUND A 
BETTER ROUTE, IF SO83 
@ SWITCH “ON” AT A(5,1)0 
@ REPLACE OLD BEST TIME A(5,2) WITH Ty 
@ PUT NODE NUMBER 2 INTO A(5,3) THUS 
BUILDING A CHAIN THROUGH NODES ON THE 
BEST ROUTE o 


Vv 
Pad avin COMPLETED WORK AT EACH NODE g SW/7CH OFF THAT NODE, 


e 

[p\reays AC,) & B(,) MUST BE PREPARED BEFORE WORKING ROUND 
IHE NODES AS DESCRIBED ABOVE, ALL THE SWITCHES MUST BE 
SWITCHED ON , SOME IMPOSSIBLY HIGH JOURNEY TIMES PUT INTO 
[HE SECOND COLUMN OF A(,4),g AND EVERY NODE MUST BE LINKED 
(© THE NODES RUNNING OUT OF IT. THE JOURNEY TIME TO THE 
“TARTING NODE MUST BE SET TO ZERO, 


wee ee 


10 REM QUICKEST WAY HOME: DEMONSTRATE ALGORITHM ONLY 
20 REM (DATA NOT CHECKED FOR ABSURDITIES) 

30 REM ALLOW FOR 50 NODES AND 120 EDGES 

40 DIM A(50,4), B(120, 3) 

50 PRINT "NO.OF NODES, NO.OF EDGES, START NODE, HOME NODE" 
60 INPUT N, E, Ss, H 


70 FOR T=1TON 

@O LET A(I,1) = 1 — 

90 LET A(I,2) = LOOOQOO <a VERY HIGH TIME 
100 LET A(I,3) =0 ZX 

110 LET A(L,4) =0 
{20 NEXT I 

130 LET A(S,2)=0 


L Por THE PROBLEM ILLUSTRATED OPPOSITE THE FIRST LINE OF INPUT 
DATA WOULD BES 7? 6, 9, 3, 6 AND ARRAY A(,) WOULD BECOMES 
1) 2) 3 £44) 
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OW INPUT THE DATA DESCRIBING THE EDGES @ IN ANY ORDER} AND 
LINK EACH FOLLOWING NODE TO THE CHAIN OF ITS PREDECESSOR , 


INPUT DATA COULD BE 
PREPARED AS SHOWN 
HERE, 


REM INPUT AND LINK (NO CHECKS ON INPUT DATA) 
150 PRINT "A-~-->---B, EDGE-TIME " 

160 FOR P=1T0 €E 

170 INPUT A, B, R 

1gO }«6©LLET)6€©B(P,2)= 8B 

1990 LET B(P,3) = 
200 LET B(P,1) = A(A, 4) 
210 LET A(A,4)= P 

NEXT P 


ae TWO ARRAYS WOULD NOW LOOK LIKE THIS 3 


i) 2) 3) A) 


A(s, [1 [roomy o [634 = 
A(2,{1 |soomo[o [sxe — 
A(3,{4 [1 0 [o |er2 — 

11 fice o [eo ~ 
AG, [4 lool o [97 — 
Ae, 


COLUMN OF A(,) SHOWS HOW THE 
CHAINS WERE SUCCESSIVELY LINKED o 
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dere IS THE MAIN PART OF THE PROGRAM, VARIABLE K COUNTS 
THE NUMBER OF TIMES NODE 1 {[S PASSED WHILST CYCLING THROUGH 
TRE NODES, BUT K IS SET BACK TO ZERO IF A CHANGE I§ MADE 
TO THE ROUTE, THUS WHEN K GETS TO 2 ALL SWITCHES ARE OFF 
AND THE SOLUTION CAN BE PRINTED, 


——~ 
230 LET I1=S ah START AT NODE >) 


240 GOTO 320 


250 LET 1 =L+i4 


260 IF I <= N THEN 300 

260 LET K™= K+ 1 sed COUNT TE CHES, 
290 IF K>4 THEN 440 —————— 
300 REM 

310 IF A(I,1) = 0 THEN 250 


320 LET J = A(I,4) 
325 IF J= 0 THEN 420 


330 LET K=0 

340 LET T = A(1,2) + B(J,3) 
350 LET Le= B(3J,2) VIA NODE I 
360 IF A(L,2) < T THEN 400 

370 LET A(L,4) = 1 Ciel OW yobs 1 
380 LET A(L,2) =T 
390 LET A(L,3) =I ADD LINK To ROUTE CHAIN 
400 LET J= BCJ;1) 
Mio IF J <>O THEN 340 
420 LET A(I,1) =O 
430 GO TO 250 
440 REM PRINT RESULT 
450 PRINT "QUICKEST WAY FROM"3S3"TO"3Hs"TAKES"s A(H,2)3 "THRU" 
460 PRINT H3 

410 LET X=A(H,3) <a HOME LINK OF ROUTE CHAIN ) 
480 LF X=O THEN 520 

490 PRINT X3 

500 LET X = A(X,3) 

510 GO TO A80 

520 PRINT 

END 


‘dunwins THIS PROGRAM WITH THE DATA SHOWN OPPOSITE PRODUCES 
INE RESULT 8 


QUICKEST WAY FROM 3 TO © TAKES 31 THRU 
654213 


Al THE END OF A RUN THE SECOND COLUMN OF A(,) STORES THE 
(WICKEST TIMES FROM NODE S TO ALL OTHER NODES IN THE 
tl) TWORK 6 
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COMMANDS 
AND SIGNING ON 


CONSULT YOUR 
USER’S MANUAL = 
EVERY SYSTEM HAS 
ITS OWN RULES o 


BAS/C RUNS ON MINI-COMPUTERS AND MONSTERS ALIKE o 
PZ 
Yfou MAY USE A MODERN “ DESK- 
TOP” COMPUTER DESIGNED 
EXCLUSIVELY FOR DEVELOPING 
AND RUNNING BAS/C PROGRAMS o 


(SOME OF THESE HAVE KEYS 
MARKED WITH THE WORDS OF 
THE LANGUAGE TO SIMPLIFY 
TYPING ap 


@)p YOU MAY USE ONE OF SEVERAL 
“TERMINALS” CONNECTED TO A COMPUTER IN 
THE BUILDING <@ OR CONNECTED BY TELEPHONE 
TO A COMPUTER MILES AWAY o 


SOME TERMINALS HAVE A KEYBOARD AND 
VISUAL-DISPLAY SCREEN LIKE A TELEVISION 3 
OTHERS A KEYBOARD AND PRINTING HEAD 
FOR TYPING ON PAPER. 


316 COMPUTERS OFFER A CHOICE OF LANGUAGE <@ BAS/C IS JUST ONE 
OF THEM, SOMEHOW YOU HAVE TO TELL THE COMPUTER YOU WANT 
TO USE 8AS/C AS YOU “SIGN ON” 4 


\AAHEN YOU SWITCH ON A TERMINAL @( AND, IF IT IS CONNECTED To A 
TELEPHONE LINE, DIAL THE NUMBER OF A COMPUTER BUREAU ) THE 
FIRST INTELLIGIBLE RESPONSE YOU GET COMES FROM THE COMPUTER?®S 
“OPERATING SYSTEM”, YOU THEN HAVE TO TYPE COMMANDS IN A 
CODE THE OPERATING SYSTEM CAN UNDERSTAND o UNFORTUNATELY 
THESE CODES ARE TOTALLY ODOIFFERENT FROM ONE OPERATING SYSTEM 
TO ANOTHER « SOME HELP YOU BY ASKING QUESTIONS AND 
SDPPLYING PROMPTS , THE EXAMPLE OPPOSITE CONCERNS AN 
IMAGINARY SYSTEM SUCH AS THIS BUT YOU WOULD BE LUCKY TO 
FIND A REAL ONE AS !NTELLIGIBLE , 
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J nVERSATION WITH AN IMAGINARY OPERATING SYSTEM? 


YOU ARE CONNECTED TO THE ”“ THANATOS" SYSTEM OF 
NECROPOLITAN LIFE ASSURANCE INCORPORATED, MORSVILLE. 
PLEASE TYPE YOUR ACCOUNT NUMBER 

? 123021/6 
PASSWORD 

2? DAVYJONES 


' ji 
Mont SYSTEMS PRINT AND OVERPRINT A BLACK MESS OF CHARACTERS 
WIN ASKING FOR YOUR PASSWORD SO THAT WHAT YOU TYPE ON TOP 
it THE MESS CAN?T BE DECIPHERED BY CURIOUS BYSTANDERS 2 


ee ee 
PASSWORD 
? BRBBA RHE DS 


~ 


USER 123021 SUBACCOUNT 6 SIGNED ON AT 17-03 HRS 
WHAT PROCESSOR OR LANGUAGE 


2 BASIC 

| 

vat CONVERSATION WITH THE OPERATING SYSTEM IS NOT QUITE FINISHED <— 
nr THIS JS THE POINT AT WHICH SIMPLER OPERATING SYSTEMS (@ THOSE 


hk COMPUTERS DEDICATED TO BAS/C Q BEGIN WHEN YOU SWITCH ON o 
ee" Le 


NEW PROGRAM OR OLD 


2? NEW 
GIVE NEW PROGRAM A NAME 
? EXAMPL 


Or” a 
{ 
i NAME YOU INVENT IS RESTRICTED BY MOST OPERATING SYSTEMS TO 
AIKOUT SIX LETTERS AND DIGITS OF WHICH THE FIRST MUST ALWAYS BE A 
I} TITER, 


| BASIC IS READY | 


{ 

Wis IS THE POINT AT WHICH MOST EXAMPLES IN THIS BOOK BEGIN «a 
MLADY TO RECEIVE A NEW PROGRAM TYPED LINE BY LINE PRIOR TO 
I7PING **RUN® o 


ry) 

InJAVING SIGNED ON, TYPED A PROGRAM AND RUN IT You WILL THEN 
WANT TO S*SIGN OFF %o IN MANY SYSTEMS YOU DO THIS BY TYPING 
“Wye” OR “GOODBYE” o 


BYE 


USER 123021 SUBACCOUNT 6 SIGNED OFF AT 1'7.15 HRS. 
TIME CONNECTED = 12 MINS, PROCESSOR TIME = 1.365 SEC. 


Ui YOU GET CONFUSED WHEN CONVERSING WITH AN OPERATING SYSTEM 5 
ky TYPING “HELP, SOME SYSTEMS DO RESPOND HELPFULLY 2 OTHERS 
Hist SAY S*WHAT? *%4BUT IT’S WORTH A TRYo 
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EACH COMMAND MAKES 
; BAS/C DO SOMETHING 
COMMARDS Fs 
TYPED o 


Lhe MOST IMPORTANT COMMAND OF BAS/C IS “RUN” BUT THERE 
ARE OTHERS COMMON TO MANY VERSIONS OF BAS/C AND BRIEFLY 
DESCRIBED HERE 5 MOST BAS/CS HAVE USEFUL COMMANDS FOR 
PROVIDING LINE NUMBERS AUTOMATICALLY , FOR RE-NUMBERING 
THE LINES OF A PROGRAM gy AND FOR JOINING PROGRAMS 
TOGETHER , BUT THESE COMMANDS VARY TOO MUCH IN DETAIL 
TO BE INCLUDED IN THIS BOOK a ALWAYS CONSULT YOUR MANUAL 
ABOUT THE COMMANDS OF BASIC oa 


BASIC IS READY 


10 REM JUST AN EXAMPLE ~ 
ZO FOR A= 1 TO 8 


30 PRINT A; 


40 EMD 
40 END 
32 NEXT A No LINE NUMBER ~ 
{0 “RUN" 1S NOT PART OF 
THE PROGRAM. IT CAUSES 
RUN IMMEDIATE ACTION 


{23 45 67 8 


[hr YOU TYPE “*RUN” A SECOND TIME YOU WILL GET THE SAME RESULT 
AGAIN G8AS/C DOESN®T FORGET A PROGRAM HAVING OBEYED IT o 


RUN 
12345 6 7 8 


[Jr YOU TYPE “LIST” BAS/C WILL PRINT A COPY OF THE PROGRAM 
YOU HAYE TYPEDo JIT WILL BE A CLEAN COPY HAVING BAD 
LINES REPLACED OR REMOVED AND OUT-OF-SEQUENCE LINES 
CORRECTLY INSERTED a COMPARE THE ORIGINAL PROGRAM ABOVE 
WITH THAT BELOW. (SEE ALSO PAGE 72) 


LIST 
20 FOR A=1 TO 8 
30 PRINT A3 

32 NEXT A 
40 END 


An SOME BAS/CS TYPING “LIST 30% WOULD CAUSE JUST LINE 30 
TO BE PRINTED 3 IN OTHERS THIS WOULD CAUSE LINE 30 AND ALL 
SUBSEQUENT LINES TO BE PRINTED. IN SOME BAS/CS TYPING 
“LIST 20,32 © IN OTHERS “LIST 20-32”) CAUSES JUST THAT 
PART OF THE PROGRAM INCLUDED WITHIN THE STATED RANGE OF 
LINE NUMBERS TO BE PRINTEDo 
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AG YOU TYPE “SAVE” THEN BAS/C WILL SAVE INA “FILE” A COPY OF 
\HE PROGRAM YOU ARE CURRENTLY WORKING ON q THE COMPUTER HAS A 
WORKING AREA (CUSUALLY IN ITS FAST CORE STORE) AND A F/LES AREA 
((USUALLY IN ITS BACKING STORE OF MAGNETIC TAPES AND DISKS Da WHEN 
YOU TYPE “SAVE” A COPY OF THE PROGRAM CURRENTLY IN THE 
WORKING AREA GOES TO THE FILES AREAg YOU CAN GET IT BACK 
AGAIN BY TYPING ITS NAME AS DESCRIBED LATER o , 


LIST 
20 FOR A= 17T08 
30 PRINT A 
32 NEXT A 

AO END 
SAVE 


SENDS A COPY OF THIS 
PROGRAM TO THE FILES 
AREA UNDER THE NAME 
"EXAMPLY” < THE NAME 
GIVEN ON PAGE //3 


PAGE /!7 ALSO 


() NcE IT IS IN THE FILES AREA YOUR PROGRAM WILL NOT DISAPPEAR 
WHEN YOU SIGN OFF BUT YOU WILL BE CHARGED RENTAL (USUALLY 
by THE DAY 2 AS LONG AS IT REMAINS IN THE FILES AREA, IT JS 
ON SUCH RENTALS THAT COMPUTER BUREAUX MAKE THEIR PROFIT o 


fou MAY DISCOVER WHAT YOU HAVE STORED {N THE FILES AREA 
By TYPING “CATALOG™* (© IN BRITAIN YOU MAY TYPE “CATALOGUE” Do 
IVERY SYSTEM PRESENTS THE INFORMATION DIFFERENTLY BUT THE 
FOLLOWING IS TYPICAL3 


CATALOG 
USER 123021/6 FILES STORED: 
NAME TYPE SIZE DATE CREATED 


—o— —_— = = — = — ane owe oe one oe a ow ot & ow amd 


EXAMPL SOURCE CODE 1 O01 MAR 77 
PROG 27 SOURCE CODE 28 FEB 
DATA6S DATA 


DAT4 DATA 
Ng I 


“SOURCE CODE” 15 JARGON FOR A 
PROGRAM IN ITS ORIGINAL FORM 
ms IN THIS CASE BAS/C o 


[HE MEANS OF CREATING AND STORING 
[HES OF DATA ARE DESCRIBED ON PAGE 120, 


“SIZE? DETERMINES THE DAILY RATE CHARGED FOR RENTAL 3 THE 


IINITS OF SIZE MIGHT BE BLOCKS OR T7RACKS OR SOME OTHER 
MEASURE DEPENDING ON THE KIND OF EQUIPMENT IN USE. 
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SulaS ( cous) 


You MAY REMOVE A FILE FROM THE FILES AREA <% DESTROY (T 
COMPLETELY wm BY TYPING “UNSAVE” FOLLOWED BY THE NAME 
OF THE FILE, OR A LIST OF NAMES SEPARATED BY COMMAS a _sIN 
SOME SYSTEMS THE WORD IS “PURGE” 3 IN OTHERS 4, DESTROY” o 


UNSAVE DATAG5, DATA = 
JF YOU THEN TYPED “CATALOG” agar’ Co WOULD NO LONGER FIND 
FILES DATAG5 OR DATA «<* AND RENTAL CHARGES FOR THEM 
WOULD CEASE » IN MANY SYSTEMS YOU CAN MAKE COPIES OF 
FILES ON PUNCHED PAPER TAPE OR PUNCHED CARDS 8 ON SUCH 
MEDIA YOU CAN STORE FILES WITHOUT PAYING RENTAL YET HAVE 
THEM READ BACK INTO YOUR FILES AREA WHEN NEEDED AGAIN, 
THE MEANS OF DOING THESE THINGS VARY GREATLY FROM SYSTEM 
TO SYSTEM SO CAN®T BE DESCRIBED IN THIS BOOK . 


AT (2 BRING A FILE FROM THE FILES AREA TO THE WORKING AREA 
YOU TYPE THE COMMAND “OLD” FOLLOWED BY TH AME OF THE 
FILE WANTED 


oe Ol? 2 


WHATEVER WAS PREVIOUSLY IN THE 
WORKING AREA HAS NOW DISAPPEARED, SO REMEMBER TO USE 
“SAVE” BEFORE “OLD” IF YOU WANT TO PRESERVE A COPY OF THE 
WORKING AREA, 


YOU MAY NOW TYPE “LIST” IN ORDER TO SEE A COPY OF PROG27, 
OR YOU MAY TYPE **RUN” TO EXECUTE PROG27, OR YOU MAY TYPE. 
INSTRUCTIONS IN BAS/C WHICH WILL ADD TO THE PROGRAM OR 
REPLACE LINES OF !ITo WHEN YOU TYPE “OLD” IT IS EXACTLY AS 
THOUGH YOU HAD WUST 7YPED THE PROGRAM NAMEDa~ AND THAT 
PROGRAM DOES, OF COURSE 4 REMAIN INTACT IN THE FILES AREAS 
THE COMMAND “OLD®? TRANSFERS A COPY OF THE NAMED PROGRAM 
TO THE WORKING AREA o 


Jo wHAT IF YOU ALTER PROG27 IN THE WORKING AREA BY TYPING 
SEVERAL NEW LINES OF 8AS/C AND THEN TYPE “SAVE” AGAIN 

THERE IS ONE PROG27 IN YOUR FILES AREA AND A D/FFERENT 
PROG27 IN YOUR WORKING AREA» THE ANSWER IS THAT BAS/C PRINTS 
AN ERROR MESSAGE TO SAY THAT PROG27 IS ALREADY SAVED. 
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IpJOWEVER , MOST “SAVE% COMMANDS WOULD ALLOW THIS 2 


SAVE PROG27A 
ge > o_O DD ee _ gE ™"—  —— _ —™XE eet 
1! SAYS “SAVE THE PROGRAM IN THE WORKING AREA AS 7JHOUGH /T 
wW/RE NAMED PROG27A %a YOUR FILES AREA WOULD NOW CONTAIN 
olH = PROG27 AND PROG27A 3 THE PROGRAM IN THE WORKING AREA 
WOULD STILL BE CALLED PROG27.4 


! 

JERE 1S ANOTHER SOLUTION 7O THE PROBLEM OF DUPLICATED NAMES, 
I ILLUSTRATION SHOWS AN INITIAL ABORTIVE ATTEMPT TO FILE 
Iwo PROGRAMS UNDER THE SAME NAME o 


SAVE 
*¥*X ERROR*** PROG27 ALREADY SAVED 


UNSAVE PROG27 
SAVE 


IN MOST SYSTEMS THE COMMAND “UNSAVE?? WORKS ONLY ON FILES 
IN THE FILES AREA ®* NOT ON THE CURRENT FILE IN THE WORKING 
AKEAa IF YOU NOW TYPED “CATALOG” YOU WOULD FIND 
I'OG27 BACK IN THE FILES AREA BUT ITS DATE OF CREATION 
WOULD BE TODAY9S DATE o 


ih CLEAR EVERYTHING OUT OF THE WORKING AR 


EA PE THE 
(COMMAND “NEW”, yy 


NEW 


I} YOU DON?T DO THIS THEN ANY 
J\INES OF BAS/C YOU TYPE WILL 
(O TO CHANGE THE PROGRAM 

CURRENTLY IN THE WORKING AREA, 


Notice HOW THE PROCESS OF SIGNING ON ILLUSTRATED ON 
I'AGE 113 FORCES THE VERY FIRST COMMAND TO BE® 


“OLD” or “NEW” 
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FILES OF DATA 


PALES IOFIDATAl 


‘ma THE KEYBOARD /S NOT THE ONLY MEANS OF INPUT <a 
NOR IS THE TERMINAL THE ONLY DESTINATION FOR OUTPUT o 


4) 2) 


[20 PRINT AUUSALia) man [io] 15] 
20 PRINT A(i,1)3A(1,2) a 


COMPUTER 


4, FAR WE HAVE SEEN THIS2 


{0 INPUT A(1,t), A(1,2) 


(Sur YOU MAY ALSO SEND DATA TO AND FROM A F/LE IN THE 
F/LES AREA WHICH IS USUALLY ON MAGNETIC DISK3 


es: 
nae A (FESS SS al 


eC 1) 2) 


Aa,[ to [15 | 
~ AO PRINT 7: A(t), AG,2) kw A 
FILES ON DISK Necy, <a © 


COMPUTER 


30 INPUT 6: Alt,{),A(1,2) 


[PILES ARE NEEDED MAINLY FoR? 


ie COMMUNICATION 2 RESULTS OF ONE PROGRAM MAY 
BE STORED IN A FILE FOR SUBSEQUENT USE AS 
INPUT DATA FOR OTHER PROGRAMS o 


xP BACKING STORAGE 2 A PROGRAM MAY GENERATE 

MORE INTERMEDIATE INFORMATION THAN BAS/C 
CAN HOLD IN THE FORM OF ARRAYS (EVERY SYSTEM 
HAS ITS OWN LIMIT ON SIZE OF ARRAY Do 


Alcs TRANSFER DATA BETWEEN ARRAYS IN A PROGRAM AND FILES IN 
THE FILES AREA USE®8 


INPUT ( PAGE 18 D 
MAT INPUT ( PAGE 96 yp 
PRINT (PAGE 28 ) 


PRINT USING (@ PAGE 34 ) 
MAT PRINT ( PAGE 98 ) 


EXCEPT THAT YOU INSERT A CHANNEL NUMBER @ FOLLOWED By A 
COLON } AFTER THE WORD “INPUT” OR “PRINT ” 
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ladi.RE IS A SUBROUTINE TO TRANSFER ROWS 1 TO “N® OF ARRAY A(,) 
1) A FILE ON CHANNEL 7: 


i) 2) 3) 


1000 REM SUBROUTINE TO TRANSFER N ROWS 


1010 REM OF A(,) TO FILE ON CHANNEL 7: AG, 
1020 FOR L=1T0ON A(2, 
1030 PRINT 7: A(1,1), A(T,2),A(L,3) A(3, 


1040 NEXT I 
RETURN 


It YOU “CALLED” THIS SUBROUTINE A SECOND TIME THE NEW CALL WOULD 
(ANSE. MORE ROWS OF NUMBERS TO BE APPENDED TO THE FILE 
hOLLOWING THOSE TRANSFERRED IN THE PREVIOUS CALL. THUS YOU CAN 
“TORE AN “ARRAY” IN A FILE MANY TIMES LONGER THAN ALLOWED 
1OR BY THE “ DIM” STATEMENT FOR THAT ARRAY o 


lak RE 1S A SUBROUTINE TO INPUT JUST “RECORD R” 

KOM A FILE ON CHANNEL 6G: 9 WE ASSUME THIS FILE HAS THE 
"AME STRUCTURE AS THE FILE ON CHANNEL 7: JLLUSTRATED ABOVE o 
A TILE (S SIMPLY A STREAM OF SINGLE ITEMS $3 you HAVE TO 
OPOANISE ITS STRUCTURE (€@ SUCH AS ROWS OF THREE AS “RECORDS” 
A’. IN THIS EXAMPLE Do 


2000 REM SUBROUTINE TO INPUT SINGLE RECORD 
2030 REM "“R" INTO BC) FROM CHANNEL 6: 
1020 REM FIRST RESET FILE TO RECORD 1 
7030 RESET 6 

7040 REM WIND THROUGH (R-1) RECORDS 

2050 FOR L={ TO R-i : 


a 


7060 INPUT 6: A,B,C 
2070 NEXT T RECORDS 
1080 REM NOW INPUT RECORD R TO BC) 
2090 INPUT 6: B(1),B(2), B(D) 
100 RETURN 
a 
11> EXAMPLE ILLUSTRATES THE INSTRUCTION “RESET” WHICH IS COMMON 
10 MANY BAS/CS ALTHOUGH AT LEAST ONE VERSION USES THE WORD 
‘WESTORE ® INSTEAD » YOU ARE USUALLY PERMITTED TO RESET 
“I VERALS CHANNELS BY A SINGLE INSTRUCTION 2 


| (00 RESET 1,3, 6 
| an a 


NPs INSTRUCTION MOVES A CONCEPTUAL “POINTER” TO THE BEGINNING 
oy THE FILE ON THE SELECTED CHANNEL SO THAT THE NEXT “INPUT” 
Ins (RUCTION TO BE OBEYED PICKS UP THE FIRST ITEM IN THE FILE o 
lw) NOT USE “RESET” WHILST PR/NV7ING BA FILE o 


Bi) B(2) BCS) 
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FALEIRAACS SICHARRELS 


VEN THERE ARE FILES IN A BAS/C PROGRAM YOU HAVE TO ASSOCIATE 
NMAMES OF FILES AS THEY APPEAR IN YOUR ‘CATALOG’? WITH THE 
CHANNEL NUMBERS USED IN “INPUT” AND “PRINT” INSTRUCTIONS o 

Q( “CATALOG” 15 EXPLAINED ON PAGE 1150) THERE ARE ALMOST AS 
MANY WAYS OF DOING THIS AS THERE ARE VERSIONS OF BASIC o 
ASSUMING YOU WANT TO INPUT FROM A FILE CALLED **MYDATA” ON 
CHANNEL 6: AND PRINT A FILE CALLED “RESULT” ON CHANNEL 7: 
HERE ARE JUST A FEW DIFFERENT WAYS DIFFERENT 8AS/CS REQUIRE 
YOU TO DO IT. Q@ NAMES YOU INVENT ARE USUALLY LIMITED TO ABOUT 
6 LETTERS AND DIGITS OF WHICH THE FIRST MUST ALWAYS BE A 
LETTER op) 


{0 FILE 4763 "MYDATA" 
20 FILE #7: “RESULT” 


10 FILES A;B3C;D3E3 MYDATA; RESULT 


OPEN 6= "MYDATA" , INPUT 
OPEN 7#= "RESULT" , OUTPUT 


INPUT FILES 
DISTINGUISHED 
FROM OUTPOT 
FILES 


OPEN "MYDATA™ FOR INPUT AS FILE 6 
OPEN "RESULT" FOR OUTPUT AS FILE 7 


OPEN "MYDATA" To :6, INPUT 


OPEN "RESULT" TO :7, PRINT 


&\ FURTHER COMPLICATION IS THAT SEVERAL BAS/CS DEMAND YOU 
FIRST USE THE “JOB CONTROL LANGUAGE ” (&2.e. THE CODE 
UNDERSTOOD BY THE COMPUTER®S OPERATING SYSTEM J} TO 
DECLARE AND GIVE DETAILS ABOUT ALL THE FILES YOUR BAS/C 
PROGRAM REFERS TO 8 IN SHORT TO GIVE DETAILS TWICE 5 
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PLSSS (ean) 


lw 
YJou CAN FILE TEXTS AS WELL AS NUMBERS 2 


100 REM FILE NAMES AND DATA 
110 PRINT 7: "CUSTOMER’S NAME "$s N$; 5¢ 


{20 MAT PRINT 7: A 


BUT SOME BAS/CS RESTRICT SUCH MIXTURES OF TEXTS AND NUMBERS 
10 FILES CODED IN CHARACTER FORM AS DEFINED OVERLEAF o 


Fa ROM THE PRECEDING EXAMPLES YOU WILL APPRECIATE HOW EASY IT 
WOULD BE TO PRINT A FILE AND GET !T OUT OF PHASE DURING 
RE-INPUT 3 REMEMBER YOU CAN’T SEE THE CONTENTS OF A FILE 
HERE (IS A ROUTINE TO INPUT ON CHANNEL Gt THE FILE PRINTED BY 
INSTRUCTIONS 100 TO {20 ABOVE ON CHANNEL 7: o 
eta 
200 REM RE-INPUT CUSTOMER’S NAME & DATA 
210 INPUT 6: M2, Q$ 

220 MAT INPUT 6: A e% 


BUT THERE |S A HORRIBLE BUG» THE TEXT "CUSTOMER'S NAME " WAS 
PUT ON THE FILE IN FRONT OF THE CUSTOMER9S TWO NAMES STORED 
IN NS AND S$ 8 LINE 210 FAILS TO PICK THIS UP , THUS MAKING 
S$ INTO THE FIRST ITEM OF MATRIX INPUT WHICH 1S RIDICULOUS « 


\ HEN DEVELOPING PROGRAMS THAT USE FILES IT HELPS TO SEND, 
SAY, THE FIRST OR LAST ITEM IN EACH TRANSFER TO THE 
TERMINAL AS A RUNNING CHECK. THE @ CORRECTED Q DEVELOP- 
MENT VERSION OF THE ROUTINE ABOVE BECOMES 2 


REM RE-INPUT CUSTOMER'S NAME & DATA 


N 6: TS,M 
INPUT $, M$, QS ONES DI 


PRINT 2103 Q$ ——! £22) JUST FOR 
MAT INPUT 6: A DEVELOPMENT 


PRINT 220; A(1,1) 
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KARDS IO! SALE: 


TPuere ARE ESSENTIALLY FOUR KINDS OF FILE3 SOME BAS/CS 
OFFER ONLY ONE KIND, OTHERS MORE, HERE IS A ROUGH 
ANALYSIS 3 


900000 


( OFTEN CALLED 


fo) 

fac a RANDOM ACCESS }) 
(6) 
fe] 


N THE DOMAIN OF FILES THERE |S A “YERTICAL” DIVISION 
SEPARATING SEQUENTIAL FILES FROM D/RECT ACCESS FILES e« 


9eoo 


SEQUENTIAL FILES EACH FILE HAS A CONCEPTUAL "POINTER" WHICH 
STARTS AT THE BEGINNING OF THE FILE AND 


opener Ld MAY BE SET BACK TO THE BEGINNING AT AMY 


TIME BY THE INSTRUCTION “RESET” o 


WHEN YOU SEND INFORMATION TO THE FILE 
BY THE “PRINT” INSTRUCTION THE NEW 
INFORMATION GOES ON THE END OF THE FILE 
AND THE POINTER MOVES ON JUST PAST THE 
NEW END THUS CREATEDs 

WHEN YOU INPUT INFORMATION FROM A FILE 
YOU GET THE INFORMATION POINTED TO 
Sey THE POINTER THEN MOVES ALONG TO THE 
NEXT SET OF INFORMATION READY FOR 
THE NEXT “\|INPUT” INSTRUCTION o 


OBVIOUSLY, THEN, YOU CAN’T “INPUT” FROM A FILE BEING “PRINTED” 
UNTIL YOU HAVE FINISHED WITH PRINTING AND “RESET” THE 
CONCEPTUAL POINTER %$&JIN SOME BAS/CS THIS MEANS CLOSING AN 
OUTPUT FILE AND OPENING IT AGAIN AS AN INPUT FILE « ON 
THE SAME OR ANOTHER CHANNELo EXAMPLES ON PREVIOUS 
PAGES .[LLUSTRATE THE USE OF SEQUENTIAL FILES o 


DIRECT ACCESS FILES  (( THESE ARE OFTEN CALLED RANDOM ACCESS FILES2 
A MISNOMER BECAUSE NOBODY WANTS RANDOMLY CHOSEN RECORDS o]) WITH 
DIRECT ACCESS FILES YOU MAY CONTROL THE POSITION OF THE POINTER» 
WHEN THE POINTER IS IN POSITION YOU MAY TREAT THE FILE AS 
THOUGH IT WERE A SEQUENTIAL FILE. SO BAS/CS THAT PROVIDE 
DIRECT ACCESS FILES MUST ALSO PROVIDE SPECIAL INSTRUCTIONS FOR 
MOVING POINTERS TO “RECORD N” AND FUNCTIONS FOR DISCOVERING 
WHERE THE POINTER HAS GOT TOs DIRECT ACCESS FILES ARE LESS 
COMMON IN BAS/C THAN SEQUENTIAL AND ARE NOT FURTHER COVERED HERE, 
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Jiike 1S ALSO A “HORIZONTAL” DIVISION OF THE DOMAIN OF FILES 
IVAKATING CODED FILES FROM B/NARY FILES o 


CODE D 


DIRECT 
ACCESS 


ad “ae — oe k- -eo - 2 - -  o --) 


B/NARY B/NARY 
SEQUEN 
-TIAL 


(UUAD FILES YOU CAN PRINT THESE AT A TERMINAL OR ON A 
lint PRINTER <» EVERY LETTER, DIGIT AND SYMBOL IN THE FILE 
In UNIQUELY STORED? USUALLY IN A.S.C.1.2 CODE. A PROBLEM 
WwItll CODED FILES IS THAT COMPUTERS USING BINARY ARITHMETIC 
NAVE TO CONVERT NUMBERS FROM CODED DECIMALS TO BINARY 
DURING INPUT «—& AND FROM BINARY TO CODED DECIMALS DURING 
COlPUT » THIS IS WASTED WORK IF YOU DON’T NEED TO PRINT 
rit FILE AND READ ITS THERE CAN ALSO BE SOME LOSS OF 

“ie DINACY DURING BOTH CONVERSIONS o 


MLNARY FILES THESE STORE DATA MORE COMPACTLY THAN 1S 
MoOSSIBLE WITH CODED FILES AND REQUIRE NO CONVERSION DURING 
Mutt AND OUTPUT, ON THE OTHER HAND THEY WOULD PRODUCE 
HIAISERISH JF YOU WERE ABLE TO PRINT THEM AT JHE TERMINAL, 
WINARY FILES ARE STRICTLY FOR STORING INTERMEDIATE RESULTS 
Yo 6A CALCULATION #% AND READING THEM BACK INTO THE COMPUTER 
trol’ TURTHER COMPUTATION » SEVERAL BAS/CS OFFERING BINARY 
li}tit) IN ADDITION TO CODED FILES HAVE DISTINCT !NSTRUCTIONS 
lok BINARY INPUT AND OUTPUT 3 TYPICALLY 3 


THE WORD “GET” IN PLACE OF “INPUT ” 
THE WORD “PUT” IN PLACE OF “PRINT” 


‘ril) SOME USE THE WORDS “READ” AND “WRITE” RESPECTIVELY. 
wWIMt = BAS/CS ALLOW BINARY FILES CONSISTING OF TEXTS. A FEW 
M4°/CS ALLOW BINARY FILES COMPOSED OF A MIXTDRE OF NUMBERS 
Atll) TEXTS. 


MPD RE Is NO HOPE OF WRITING COMPLETELY PORTABLE BAS/C PROGRAMS 
will USE FILES ¢% BUT IF YOU STICK TO USING CODED SEQUENTIAL 
’ +18 YOUR PROGRAM SHOULD NOT NEED MUCH ALTERATION TO 
WAL IT RUN ON SOME OTHER INSTALLATION o 
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SYNTAX 


THIS IS A SUMMARY OF THE SYNTAX «& THE WRITTEN FORM #&@ OF BAS/C 
AS DESCRIBED IN THIS BOOK, YOUR VERSION PROBABLY DIFFERS 9 BUT 
IF IT HAS A DEFINITION OF SYNTAX SET OUT LIKE THIS ONE THEN 
MOST DIFFERENCES SHOULD BE EASY TO SPOT BY COMPARISON, 


A BASTARDIZED *BACKUS-NAUR ” NOTATION IS USED FOR THE SUMMARY. 
MANY SUCH BASTARDS HAVE BEEN CREATED FOR DEFINING THE 
SYNTAX OF BAS/C AND SOME ARE VERY AWKWARD TO READ. I 
HAVE TRIED TO MAKE THIS ONE AS READABLE AS POSSIBLE WITHOUT 
LOSS OF RIGOUR BUT EVEN SO YOU MAY FIND IT HARD GOINGo 


S'Y/ABOLS' IN THE DEFINITIONS, 


=> SAYS “IS DEFINED TO BE”, 
| SAYS “OR” 


‘| SQUARE BRACKETS ENCLOSE ANYTHING THAT 
MAY APPEAR ONCE OR NOT AT ALL FOR THE 
DEFINITION TO HOLD GOOD. 


{ } BRACES ENCLOSE ANYTHING THAT MAY APPEAR 
ONCE OR SEVERAL 7/MES OR NOT AT ALL FOR 
THE DEFINITION TO HOLD GOOD. 


(eG, SGEAMES ww ome DEFINITIONS « 


smallletters ARE USED To GIVE ENGLISH DESCRIPTIONS 
WHERE THE MATTER IS OBVIOUS OR WHERE THE 
SPECIAL NOTATION CAN?T REASONABLY COPE o 


CAPITALS ARE USED FOR LETTERS, DIGITS AND SYMBOLS 
(+—-/*?t) WHICH MUST BE COPIED AS THEY STAND TO 
<=335.$°'"> CREATE A VALID EXAMPLE OF THE THING 
012 BEING DEFINED. 


l[taltcs ARE USED TO GIVE NAMES To THE THINGS 
BEING DEFINED o 


COMMEM TSEFEEXAMPLESE 


( y @ SHADOW™ BRACKETS ENCLOSE COMMENTS & 
EXAMPLES WHICH ARE NOT PART OF THE 
DEFINITIONS eo 
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Fare THE ELEMENTS OF BAS/C 3 [Paces 


digtt == one of the digits 0 to 9 
letter => one of the letters A toZ 


ston» 6+ /|- 

operator = +|-|*|/|* 20 
separator => 5|3 28 
comparator = =(|<|>|<=|>=|<> Al 
text = “any characters except quotation marks " 12 
line = an integral line number from 1 to 9999 7 
function =~ SGN|SIN|COS| TAN|ATN|EXP|ABS|LOG| 22,24 

SQR| INT| RND | FN defter 
constant => RND| FNéetter 25,26 


(( THIS DEFINITION ALLOWS BOTH RND AND RND(X)3 ALSO FNA & FNA(K)D 


DA Xt THE COMPOUNDS (ARBITRARILY DISTINGUISHED FROM ELEMENTS 3 

integer => digit { digit} 
(e9. OO, O12, 87654 : LENGTH LIMITED BY PARTICULAR VERSION ) 
exponent = E[stgn] trteger 
number =» tnteger (ll tnteger] lexponent]| .tnteger [exponent] 9 
(e.g. \2, 12.2, 12.2646, 126-6, 12. , (2.26 p 
datum => [ ston] number | text 16 
e.g. 2, -2.5 , "ABC" AS IN “DATA” STATEMENTS ) 
vartable => numerical | textual 

numerical => letter [digit] | letter (expression[,expresstori]) 10,60 

(2.9. A, A5, A(4et), A(1,2*J) ) 

textual => letter $[(expression)] 2.9. A$,A$(2+1)) 13,60 
lextcal => text| textual AY 
(e.g. "ABC" , A$, A$(2+I) AS IN “IF” STATEMENTS D 
term = > number | numerical | function (expression) | constant 

| (expression) (eg. 6.5, A(L,J), RND,INT(2+B),C3*I0) ) 

expression =» (sign|term {operator term} 20 
(2.9. A, + ACJ), tACL,J)*INT(SsA4B) YD 
declaration =» letter ( integer [, tnteger]) | letter $ (integer) 62 
(2.9. ACA) , A(2,30) , A$(26) = AS IN “DIM” STATEMENTS D 


printable => expression | lexical | TAB(expression) 28 
(2.7. A(i,Jd)* INTCABS(I+P)) , "ABC", A$(Q),TAB(X) D 

adjustment = > (expresston, expresston) 79 
deg. (2*A, B(t,J)/6) += AS IN CERTAIN “MAT” INSTRUCTIONS ) P.0 
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NOW THE 
GLRVOED))  staremenrs 
OF BAS/C 


[IMENSIONS OF ARRAYS 3 [pace s 
line DIM geclaratton {, declaration} 


62 
Jg\ ssigNMENT 2 
line LET rumertcal = expresston 1! 
line LET lextual = textual | text {3 
line DEF FNéetter [ (letter [digit] )] = expression 26 
[|neut : 
ine DATA datum {; datum} 16 
line READ vartable {, varcable} 16 
line RESTORE (FOR “DATA” STATEMENTS P 17 
line INPUT [tnteger :] variable {, vartable} 18,120 
lime RESET tNteger {, integer} (FOR FILES p 121 
urpur 2 
line PRINT [tnteger:]usING line {,vartable} 34,120 
Line : (STRUCTURE OF IMAGE LINE TOO VARIED FOR DEFINITION D 34-37 


line PRINT [¢ntegers][ printable {separator printable} [separator] } 28 225 


@AvoID USING A COMMA AFTER TABC) yp 


AATRICES : 76 
line MAT letter = letter 78 
line MAT letter = fetter + letter 80 
tine MAT letter = fetter — letter 80 
line MAT letter = (expression) * letter 82 
tine MAT fetter = TRN (letter) 84 
tine MAT letter = ZER [ adjustment] 86 
tine MAT letter = LDN [adjustment] 87 
tue. MAT «letter = CON [adjustment] 37 
line. MAT fetter = (etter * letter 88 
tine mat fetter = INV (letter) 90 
line MAT READ (etter [adjustment] {letter [adjustment] } 94 
(ine MAT INPUT [entegers] letter [aqjustment]{ , letter [adjustment}{ 96 
tine MAT PRINT [énceger:] letter { separator letter) [separator] 98 
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SUNDRY 3 [Paces 


five REM {any character} 8 
fone END 7 
MM ONTROL s 39 
line ~=GO TO kre ( “GOTO” USUALLY PERMITTED) 40 
fine GO SUB Line €@“aosuB” USUALLY PERMITTED D 52 
fcr RETURN 52 
(ine ON expresston Go TO Line {, line} 46 
(WATCH OUT FOR DIFFERENT FORMS OF THE ABOVE ) 
forte TF expresstéon comparator expression THEN Cane Af 
fine IF lextcal comparator lexical THEN line Al 


(“GO TO” 1s COMMON IN PLACE OF “THEN” ) 
(we FOR letter [atget] = expresston TO exoression [STEP expression | 4g 


(ine NEXT letter [atgtt] 48 
fine STOP 42 
Fd ILE MANAGEMENT 2 119 


( Too DIVERSE FOR DEFINITION HERE J) 


ra 


| SSOMMANDS & fit 
}O VIN 114 
hist 114 
CATALOG[UE | L115 
SAVED [ fede] 1155117 
UNSAVE ftle 116 
aonb ftle 116 
NEW 117 


file => file name with syntax local to the installation 


( COMMANDS DIFFER WIDELY IN NUMBER AND SYNTAX 
AMONG INSTALLATIONS OFFERING BASZC Dp 
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A 


A.N.S.1 X3J2, vette 
ABS (ABSOLUTE VALUE) FUNCTION, 23 
ADDITION 

OF MATRICES, 801 

PRIORITY OF, 20 
ALGORITHM, 106 
APPROXIMATE EQUALITY, TEST FOR, 41 
ATN (ARCTANGENT D FUNCTION, 24 
ARRAYS, 60 

VS. FILES, 1214 


BACKING STORAGE , BY FILES, 120 
BACKUS-NAUR NOTATION, 122 
BAS/C 

ELEMENTS OF, 129 

ORIGIN OF, wzetd 

SYNTAX OF, 128 5% 31 
BIG NUMBERS, 9, 12 

PRINTING OF, 30, 35 
BINARY 

DIGITS, 9 

FILES, 125 
BLANK LINES, 8, 29 
BRACKETS, USE OF, 20561 
BUG y ,DEFINITION OF, & 7 
BULU , FREEMAN & GARLAND, Uti 


CATALOG COMMAND, 11517, 122 
CHAINS, 685773, 1068 
CHANGE OF STATE, 102, 105 
CHANNEL NUMBERS. {20883 
CHARACTER 
FORM, OF FILES, 124005 
POSITIONS, 28 
CODED FILES, 124605 
COLUMN VECTOR OR MATRIX, 60, 76 
COMMA 
IM DATA STATEMENTS, 17 
IN MAT PRINT, 98 
IN PRINT STATEMENTS, 12,289 
WITH INPUT STATEMENTS, {9 
WITH PRINT USING, 34 
COMMANDS, [12, 114 17 
COMPUTER BUREAUX, 112, {15 
COMMUNICATION BY FILES, 120 
CON (CONSTANT) AFTER MAT, 287 
CONDITIONS, At 
CONFORMABLE MATRICES, 89 
CONTROLLING WORDS, 6 
COS (cosiINE) FUNCTION, 24 
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CUMULATIVE MULTIPLICATION, 86599 

CURRENCY SIGN, 34, 36 

CURRENT DIMENSIONS OF MATRICES, 
78, 81,83,84, 86, 87, 89,93, 94,98 

CYCLE OF RANDOM NUMBERS, 25 


DATA STATEMENT, {6% 17 , 94 
DATA 
FILES OF , {2085 
ITEMS OF, IN DATA STATEMENTS, !7 
PROMPTED BY INPUT STATEMENTS ,JB@19 
QUEUES OF, {16 
DARTMOUTH COLLEGE , wétr 
DECIMAL POINTS 
IN MOULDS, 34 
IN NUMBERS, 9 
DEF (DEFINE ) STATEMENT, 26627 
DEFINITION 
OF FUNCTIONS, 26587 
OF SYNTAX, 128593! 
DESK TOP COMPUTERS, {{2 
DETERMINANTS , 43, 93 
DIM (DIMENSION) STATEMENT, 623,121 


DIRECT ACCESS FILES, 12455 
DISK, MAGNETIC, 120 
DIVISION, PRIORITY OF, 20=%4 


DOMAIN OF FILES, 1/2405 
DUMMY ARGUMENTS, 266¢7 
DUMMY PARAMETERS, 53 


END STATEMENT, 7, 42 
ERRORS 
ERASURE OF, 5,7 
IN STATE TABLES, 103 
EXECUTABLE INSTRUCTIONS, 8, 40 
EXP (EXPONENT 2 FUNCTION, 23 
EXPONENT FORM (E-FORM), 9 
MOULDS FOR, 36 
EXPONENTIATION, PRIORITY OF, 20 
EXPRESSIONS, 20s1 
EXTENDED RANGE, 50 


FILES AREA, (15517 
FILES 

CREATION OF, 115 

DESTRUCTION OF, 116 

KINDS OF, 124665 
FOR STATEMENT, 48% 5} 
FORMATS, 34. 

(continvedD 


TIONS 5 225%'7 
DEFINING OWN, 26%7 
INTRINSIC, 22605 
TRIGONOMETRICAL , 24 


(0) SUB STATEMENT, 52 5%5 
(WO TQ STATEMENT, 40, 4657 
AHS, PLOTTING OF, 33 


ION (IDENTITY MATRIX D AFTER MAT, 
Ay, Of 

IF oIATEMENT, 4f 

IMAC Sy. 24 eed 

MUNTAL VALUES, {1, 13, 63 

Mitit k PRODUCTS , 89 490 

INPUT STATEMENT, 18 %19 
AFTER MAT, 9687 
OF FILES, [20563 

Ii !RUCTIONS, 4,8 

Mibeb RS, 9 
PRINTING OF, 30, 3455 
RANDOM , 27 

IIIV ORAL PART, 2,23,35, 4697, 
hf), 05, 97 

INT (INTEGRAL PART) FUNCTION , 23 

INVERSION OF MATRICES, 903 


lls CONTROL LANGUAGE, 122 
IMPS IN LOOPS, A9«%50 


ME VIMOARD, Asz5 


I SHGUAGE. urtte 
littl NUMBERS, 7 
(INit, LIMIT TO LENGTH OF, 6,99 
1IST COMMAND , 114 
[15] PROCESSING ©8 73 
OG (LOGARITHM) FUNCTION , 23 
OOS, ABsmSt 
INTERLEAVED , 49 
NESTED, 49,77 


MAT INSTRUCTIONS, LIST OF, 77 
MALCHING , 49, 103 
‘\ATRIX: DEFINITION OF, 60,76 
SEE ALSO SEPARATE ENTRIES 
MIMIMAL BAS/C, ttt 
MULTIPLICATION 
OF MATRICES, 88589 
PRIORITY OF, 20 
SCALAR , 82 .5%3 
MOULDS , 345%7 


NEAREST {NTEGER, SEE INTEGRAL PART 
NEW COMMAND, {13 , 117 

NEXT AFTER FOR, 4851 
NUMBERS, FORMS OF, 9 


ON STATEMENT, 467 

IN STATE TABLES, {05 
OPERATING SYSTEM, 11252 13 
ORDERING, 7, 713 
OUTPUT , SEE FRIMT STATEMENT 


[? 


PASSWORD, 113 

POINTERS, 68, 72 
CONCEPTUAL, {21, 124 

PORTABILITY, Udit. Za, 13, 27, 32, 
35, 41,47, 53, 61,62, 63,65, 
97, 125 

PRECISION OF NUMBERS, 9 

PRINT LISTS , EMPTY, 29 

PRINT STATEMENT, 28 33 
AFTER MAT, 98 
OF FILES, 12023 

PRINT USING STATEMENT, 3407 
OF FILES, {2003 

PRINTING HEAD, POSITION OF, 3384 

PRCGRAM: DEFINITION OF, vziz, 8 

PROMPT, INPUT, {8 

PSEUDO RANDOM NUMBERS, 25 


QUOTATION vac USE OF, 12 


rR 


RADIANS , 24, 27 
RANDOM ACCESS FILES, 124 
RANDOM INTEGER, 27 
RANDOM NUMBERS, 25 
RANDOMIZE STATEMENT, 25 
RANGE 
OF ON STATEMENT, 47 
TEST FOR, 97 
READ STATEMENT , 16617 
AFTER MAT, 94685 
REAL FORM , 9 
RECORDS IN FILES, 121,124 
RECTANGULAR ARRAY OR MATRIX, 60,76 
RECURSION, 54585 
REDIMENSIONING OF MATRICES, 79, 81, 
83, 84, 86, 87, 89, 93,95,97 
REM (REMARK )) STATEMENT, 8 
RENTAL OF FILES, 115, 417 
REPLACEMENT 
OF MATRICES, 78 
OF VARIABLES, {1, 13 
RESET INSTRUCTION, {21,124 


(CONTINUED 
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BRDEX@ Cone) 


RESTORE INSTRUCTION, 17, 121 
RETURN STATEMENT, 52433 
RIPPLE SORT , 66037, 71 
RND (RANDOM NUMBER ) FUNCTION, 25 
ROUNDING 

ERRORS, 57,93 

FUNCTIONS FOR, 27 

SEE ALSO /NTEGRAL PART 
ROW OF ARRAY, VECTOR, MATRIX, 60 
RUN COMMAND, 4, 114 


SAVE COMMAND, [15 <®17 
SCALAR MULTIPLICATION, 62 53 
SCANNING , 49 
SEMICOLONS 

IN MAT PRINT , 989 

IN PRINT STATEMENT, 12, 28599 
SEQUENCE OF INSTRUCTIONS, 4,8 

ALTERATION OF, 401 
SEQUENTIAL FILES, {24585 
SGN (SIGND FUNCTION, 23 
SIGNIFICANT DIGITS, 9 
SIGNING OFF, {13 
SIGNING ON, A, 1126913 
SIMULTANEOUS EQUATIONS , 43, 9051 
SIN (SINE) FUNCTION, 24 
SINGULAR MATRIX, 93 
SMALL NUMBERS, 9, 30 
SORTING , ©6537, 703 
SOURCE CODE, {15 
SPACES, ALLOWABLE , 6,9,19, AL 
SPECIFICATION FOR STANDARD BASIC, U¢@t 
SQR (SQUARE ROOT) FUNCTION, 23 
SQUARE ARRAY OR MATRIX, 60,76*7,87,93 
STACKING , 54, 69 
STATE TABLES, 95, 10205 
STATEMENTS, ¢€2%, 8 

SYNTAX OF, 130s¢1 
STOP INSTRUCTION , 42 
STOPPING A PROGRAM, 40, 42 
STRING, 12 
SUBROUTINE 

CALLING OF, 53, 12! 

CONCEPT OF, 52 

WITH STATE TABLES, 105 


134 


SUBSCRIPTS , 18, GO, 64585 

FASTEST VARYING , 77 
SUBTRACTION 

OF MATRICES, 801 

PRIORITY OF, 20 
SWITCHES, 106587 

MULTIWAY, 46 
SYMBOL- STATE TABLES, 95, 10205 
SYNTAX OF BAS/IC, 1285331 


TAB FUNCTION, 32%%3 
TAN (TANGENT D FUNCTION, 24 
TERMINALS OF COMPUTERS, [12 
TEXT 
DEFINITION OF , 
IN FILES, 123 
TEXTUAL 
ARRAY, 61 
VARIABLE , 13 
TRAILING ZEROS & SPACES, 301 
TRANSFORMATION OF COORDINATES, 85 
TRIGONOMETRICAL FUNCTIONS, 24 
TRN Q@TRANSPOSITIOND AFTER MAT , 84.95 
TYPING, 497, 1819 


O, 


UNDEFINED LOOPING VARIABLE, 51 
UNSAVE COMMAND, 1165317 

UNSET VARIABLES & ARRAYS, 11,13,63 
USING: SEE PRINT USING 
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VARIABLES 
SIMPLE NUMERICAL, 108611 
SUBSCRIPTED, 64 
TEXTUAL, 13 

VECTOR , 60 

WORD 
AS TEXT, 12 


LENGTH OF, 9 
WORKING AREA, 115617 


ZER (ZERO MATRIX) AFTER MAT, 96 
ZONES, IN PRINT STATEMENT, 28 


"I MAKE A COMPUTER DO A CALCULATION @@ HOWEVER SIMPLE sym YOU 
MUST DESCRIBE EVERY STEP OF THAT CALCULATION IN A LANGUAGE 
THE COMPUTER CAN UNDERSTAND? THIS DESCRIPTION IS CALLED A 
PROGRAM 4 THIS BOOK PRESENTS A POPULAR AND WIDELY 
AVAILABLE LANGDAGE CALLED BAS/C AND EXPLAINS HOW TO 
WRITE SIMPLE PROGRAMS IN [To 


(Basic WAS BORN IN AMERICA AT DARTMOUTH COLLEGE, NEW 
HAMPSHIRE, IN 1964 AS A SIMPLE COMPUTER LANGUAGE FOR 
BEGINNERS, JT PROVED POPULAR AND HAS BEEN COPIED AND 
EXTENDED BY MANY COMPUTER MAKERS , COLLEGES, UNIVERSITIES 
AND “TIME SHARING? SERYICES. NOW, LIKE ENGLISH, BAS/C 
HAS D/JALECTS $3 A PROGRAM WRITTEN IN ONE [5 UNLIKELY TO 
WORK ON A COMPUTER COMMITTED TO ANOTHER, 


[In WRITING THIS BOOK I HAVE KEPT AT MY SIDE ELEVEN 
MANUALS s<@ EACH DEFINING A DIFFERENT BAS/C 5 FROM THESE 
I HAVE TRIED TO DISCOVER AND POINT OUT WHERE BAS/CS 
COMMONLY DIFFER FROM ONE ANOTHER AND RECOMMEND WAYS 
OF AVOIDING DEPENDENCE ON ANY ONE PARTICULAR VERSION, 
I HAVE USED THE WORD “PORTABLE” TO DESCRIBE A BAS/C 
PROGRAM WRITTEN WITH INDEPENDENCE IN MIND «<@ AND TREAT 
THE NEED FOR INDEPENDENCE AS AN AXIOM, 


Lhou DON?T HAVE TO BE A COMPUTER SCIENTIST TO READ 
THIS BOOK2 IT IS WRITTEN FOR STUDENTS MEETING 
COMPUTERS FOR THE FIRST TIME3 FOR THOSE IN INDUSTRY 
(PARTICULARLY ENGINEERS D WHO NEVER FORMALLY STUDIED 
COMPLTING BUT WOULD LIKE TO WRITE SIMPLE COMPUTER 
PROGRAMS 3 FOR MANAGERS WHO DO NOT WANT TO WRITE 
PROGRAMS BUT WOULD LIKE TO KNOW MORE ABOUT A FIELD 
IN WHICH THEY OFTEN HAVE TO TAKE DECISIONS 3 AND FOR 
THOSE WHO CAN ALREADY WRITE IN BAS/C BUT SEEK A 
BROADER VIEW OF ® PORTABLE” PROGRAMMING AND AN 
INTRODUCTION TO A FEW PROGRAMMERS’ TECHNIQUES LIKE 
“STATE TABLES® AND “©LIST PROCESSING” o 


[kom THE PREFACE 
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